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

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

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

program u11z9;
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.