Pascal урок 11 задача 9

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

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

  for c := 1 to 3 do
  begin
       writeln('vvedite celoe chislo');
       if (c = 1) then
         readln(a)
       else
          if (c = 2) then
          readln(x)
        else
           readln(b);
   end;
  writeln(a, ' ', x, ' ', b);
  readln();
end.