500'den kucuk sayilari 5er artacak sekilde yazdirmak -- repeat until kullanarak

program repeatd;

uses

crt;

var

i : integer;

begin

i:=0;

repeat

begin

writeln(i:14);

i:=i+5

end;

until i>500;

readln;

end.