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

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

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

var a, b, c, i: integer;
begin
  writeln ('Введите три числа: ');
  while (i < 3) do //тема про цикл while, поэтому будем использовать while
    begin
      i:=i+1; // увеличиваем значение счетчика на 1
      if (i = 1) then // при значении счетчика 1 запоминаем первую переменную
        readln(a) // запоминаем первую переменную
      else if (i = 2) then // при значении счетчика 2 
          readln(b) //запоминаем вторую переменную
        else       // в оставшемся случае 
          readln(c); //запоминаем третью переменную
    end;
  writeln (a , ' ', b, ' ', c);
  readln();
end. 

Вывод в консоли:

Введите три числа:
-4
3
12
-4 3 12