if dongusu - 500den kucuk sayilari 50'ye bölümünden kalan sıfır olcak şekilde yazdırmak

program ifdongusu;

uses

crt;

var

i : integer;

begin

i:=0;

while i<500 do

begin

if ((i mod 50)=0) then

writeln(i:15);

i:=i+5;

end;

readln;

end.