Mein Versuch Teilbarkeit

Wiki-Quelltext dieser Seite.

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

<code id="4d36cffeb47bc">
procedure teilbarkeit;
var z,r,t:Integer;
begin
writeln('Zahl eingeben:');
readln(z);
write('Teiler eingeben:');
readln(t);
r:=z mod t;
if r=0 then writeln('Teiler gefunden')
else writeln('Kein Teiler');
end;
</code>

<run id="4d36e6e0a0ff8" >

teilbarkeit();
</run>

<code id="4d2a0bf79cc25">
var Lied:String;
    key:integer;
    dauer:integer;
    c:Char; k:Char;
    i:Integer;
</code>