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

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

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

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

  for i := 1 to 3 do
  begin
    writeln('Enter an integer: ');
    if (i = 1) then
       readln(a)
    else if (i = 2) then
       readln(b)
    else
       readln(c);

  end;

  writeln(a, ' ', b, ' ', c);
  readln();

end.