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

var i, a:longint;

begin

   read(a);

   for i:=1 to 1000 do  

       if (100 lt;= a * i) and (a * i lt;= 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.