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

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

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

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