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

http://fkn.ktu10.com/?q=node/7341
Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()

program task9_lesson11;
var i,a1,a2,a3,c:integer;
  begin
   for i := 1 to 3 do
       begin
         writeln('enter number');
         readln(c);
         if i=1 then
            a1 := c;
         if i=2 then
             a2 := c
         else
             a3 := c
       end;
   writeln('Entered numbers : ',a1,' ',a2,' ',a3);
   readln();
  end.