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

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

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

var a, b, c, d: integer;
begin
  a:=1;
  while (a<>0) do
  begin
    writeln(' vvedite celoe chislo i nagmi enter: ');
    readln(a);
    d:=c;
    c:=b;
    b:=a;

    if (b<>0) and (c<>0)
      and (d<>0) then
      break;
  end;

  write('otvet: ', b, ' ', c, ' ', d, ' ');
  readln();
end. 

КОНСОЛЬ:

 vvedite celoe chislo i nagmi enter:
5
 vvedite celoe chislo i nagmi enter:
-3
 vvedite celoe chislo i nagmi enter:
2
otvet: 2 -3 5