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

uses PT4Exam;

const
  R = 100;

var
  m: array[0..R] of integer;
  a, i: integer;

begin
  Task('ExamBegin19');
  Read(a);
  m[0] := 1;
  for i := 1 to a do
  begin
    m[i] := m[i - 1] * 2;
    Write(m[i]:5);
  end;
end.

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

uses PT4Exam;

var
  a, i, p: integer;

begin
  Task('ExamBegin19');
  Read(a);
  p := 1;
  for i := 1 to a do
  begin
    p := p * 2;
    Write(p:5);
  end;
end.