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;
var z,r,i:Integer;
begin
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="4d36ed52c511e">
z:=StrToFloat(inputDialog('Welche Zahl soll geprüft werden'));
teilbarkeit2()
</run>