Задача 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('vivodim tri chisla: ', a,' ',b,' ',c);
   readln();
end.