Решение задачи ExamBegin20

uses PT4Exam;

const
  R = 100;

var
  m: array[1..R] of real;
  n, i: integer;
  a, d: real;

begin
  Task('ExamBegin20');
  Read(n, a, d);
  for i := 1 to n do
  begin
    m[i] := a;
    Write(m[i]:7:2);
    a := a + d;  
  end;
end.

Так же возможное решение 20 задачи.

uses PT4Exam;

var
  n, i: integer;
  a, d: real;

begin
  Task('ExamBegin20');
  Read(n, a, d);
  for i := 1 to n do
  begin
    Write(a:7:2);
    a := a + d;  
  end;
end.