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

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

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

Подсказка: Если не получается решить, посмотрите эту видео-подсказку(link is external).

var a, b, c, x, i: integer;
begin
  while i < 3 do
   begin
    i += 1;
    write('Введите целое число: ');
    readln(x);
    if (i = 1) then a := x;
    if (i = 2) then b := x;
    if (i = 3) then
     begin
      c := x;
      break;
     end;
   end;
  write('Введенные числа: ', a, ' ', b, ' ', c);
  readln();
end.