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

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

var a, b, c, d, f: integer;
begin
  f :=0;
  while (f<3) do
    begin
      write('vvedite celoe chislo:');
      readln(d);
      if f = 0 then
        a := d;
      if f = 1 then
        b := d;
      if f = 2 then
        c := d;
      f := f + 1;
    end;
  writeln('a= ', a);
  writeln('b= ', b);
  writeln('c= ', c);
  readln();
end.