Mein Versuch Teilbarkeit

Wiki-Quelltext dieser Seite.

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

<code id="4d36cffeb47bc">
procedure teilbarkeit;
var z,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="4d2a0bf79cc25">
var Lied:String;
    key:integer;
    dauer:integer;
    c:Char; k:Char;
    i:Integer;
</code>