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

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

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

program programma9;
var a, b, c, i, q : integer;
begin
  a:=0;
  b:=0;
  c:=0;
  i:=0;
  while (i <> 3) do
  begin
    writeln('Vvedite chislo:');
    readln(q);
     if a=0 then
      a:=q
     else
       if b=0 then
        b:=q
       else
        c:=q;
    i:=i+1;
  end;
  writeln(a,' ',b,' ',c);
  readln();
end.