Помогите пжл по паскалю задачки

var i, a:longint;

begin

   read(a);

   for i:=1 to 1000 do  

       if (100 <= a * i) and (a * i <= 999) then

           write(a * i, ' ')

end.

{$N+} (*Enable 287 soprocessor*)

var i:longint;

   a:extended;

begin

   read(a);

   for i:=1 to 20 do write(i, ' ', a * i, ' Rub.', #13, #10);

end.