500-100 ARASINI BÜYÜKTEN KÜÇÜĞE SIRALIYAN PROGRAM


uses crt;
var
   i:integer;
begin
     clrscr;
     for i:=500 downto 100 do write(i:5);
     readln;
end.