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

uses PT4Exam;

const
  R = 100;

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

begin
  Task('ExamBegin21');
  Read(n, a, d);
  for i := 1 to n do
  begin
    m[i] := a;
    Writeln(m[i]:4:2);
    a := a * d;  
  end;
end.

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

uses PT4Exam;

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

begin
  Task('ExamBegin21');
  Read(n, a, d);
  for i := 1 to n do
  begin
    Writeln(a:4:2);
    a := a * d;  
  end;
end.