Задача 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. 

Консоль:

vvedite chislo:
4
vvedite chislo:
5
vvedite chislo:
6
4 5 6