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

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

program Project119;
var a,b,c,i: integer;
begin
  for i:=1 to 3 do
    begin
      writeln('vvedite chislo');
  if (i=1) then
    readln(a)
  else if (i=2) then
    readln(b)
  else
    readln(c);
    end;
  writeln(a,' ',b,' ',c,' ');
  readln();
end.