Урок 11. Задача 9.

Урок 11. Задача 9.

Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()

var a, b, c, x, i : integer;

begin
  while (i < 3) do
    begin
      i := i + 1;
      write('Enter an integer ', i, ' : ');
      readln(x);
      if (i = 1) then
        a := x
      else
        if (i = 2) then
          b := x
        else
          c := x;
    end;
  write(a, ' ', b, ' ', c);
  readln();
end.