Mein Versuch Teilbarkeit

Aus ProgrammingWiki

Archivierte Version vom 2011-01-19T13:46:27+00:00. Aktuelle Version

writeln('Juhu');

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;

teilbarkeit();

var Lied:String;
    key:integer;
    dauer:integer;
    c:Char; k:Char;
    i:Integer;