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

Question

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

---

---

Answer 1

var i, a:longint;

begin

   read(a);

   for i:=1 to 1000 do  

       if (100

           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.