Mein Versuch Teilbarkeit

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
<run id="4d36e61a54332">
writeln('Juhu');
</run>

<code id="4d36cffeb47bc">
procedure teilbarkeit;
var r,i:Integer;
begin
for i:=1 to 100 do
begin
r:=100 mod i ;
if r=0 then writeln(i,' ist ein Teiler von 100');
end;
end;
</code>


<run id="4d36e6e0a0ff8" >
teilbarkeit();
</run>

<code id="4d36ed0bbe7ca">
procedure teilbarkeit2 (x : integer);
var z,r,i:Integer;
begin
z:=x;
for i:=1 to z do
begin
r:=z mod i ;
if r=0 then writeln(i,' ist ein Teiler von z');
end;
end;
</code>

<run id="4d36ee8d28326" >
teilbarkeit2(StrToInt(inputDialog('Welche Zahl soll geprüft werden')));
</run>

<code id="4d36f00469342">
function primzahl (z : integer):boolean;
var a,r,t,i : integer;
begin
t:=0;
a:=z;
for i:=1 to a do
begin
r:=a mod i;
if r=0 then t:=t+1;
end;
if t>2 then result:=false
else result:=true;
end;
</code>

<run id="4d36f004693c5">
primzahl(StrtoInt(inputDialog('Gib eine Zahl ein: ')));
</run>