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

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

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

var a,b,c,i: integer;
begin
  for i :=1 to 3 do
  begin
     writeln('vvedite chislo');
     if (i = 1) then readln(a)
     else if (i = 2) then readln(b)
     else readln(c)
  end;
  writeln(a, b, c);
  readln();
end.