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

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

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

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('Vvedennie chisla: ',a,' ',b,' ',c);
   readln();
end.