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

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

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

var
  i: integer;
  a, b, c: 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.