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

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

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.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!