Вопрос по задаче №10 из главы 11 -- Пользователь вводит последовательно три произвольных целых числа

Задача №10

Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
В решении:

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

Вопрос, следующий код будет верный?

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

  i := 0;
  while (i < 1) do
  begin
    write('Please enter the number: ');
    readln(a, b, c);

    i += 1;
  end;

  write('a = ', a, ', ', 'b = ', b, ', ', 'c = ', c);
  readln();
end. 

В видеопояснении другое решение...