Question

Помогите пожалуйста!

Answer 1

Программа может выглядеть так:

program Progress;
uses Crt;
const n = 5;
      d = 3;
var  a: integer;
     i: integer;
begin
 ClrScr;
 a:=9;
 for i:=1 to n do
 begin
    begin
      Write ('i=',i, '':5,'a',i,'=',a);
      a:=a+d
    end;
    WriteLn;
 end;


ReadLn;
end.

Answer 2

Большое спасибо)