program repeatd;
uses
crt;
var
i : integer;
begin
i:=0;
repeat
writeln(i:14);
i:=i+5
end;
until i>500;
readln;
end.
Hiç yorum yok:
Yorum Gönder