Решение задачи 9 из главы 11

Решение задачи 9 из главы 11

9. Пользователь вводит в числа последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.

program Project9;
var a, b, c, i: integer;
begin
  i:= 1;
  while (i <= 3) do
  begin
      c:= b;
      b:= a;
      writeln('Vvedite zeloe chislo:');
      readln(a);
      writeln(a, ' ', b, ' ', c);
      i:=i+1;
  end;
  writeln('Konez zikla!');
readln();
end.