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

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

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

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

     i:=1;
     while (i<=3) do
           begin
                writeln('vvedite celoe chislo');
                if (i=1) then
                   readln(a)
                else
                    if (i=2) then
                       readln(b)
                    else
                        readln(c);

                i:=i+1;
           end;
      writeln(a, ' ', b, ' ', c);
      readln();
end.