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

11. While

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

var a,b,c,i: integer;
begin
  for i:=1 to 3 do
    begin
      writeln('write integer num ');
      if (i=1) then
        readln(a)
      else if (i=2) then
        readln(b)
      else
        readln(c)
    end;
writeln('your nums are: ', a, ' ' , b, ' ' , c);
readln();
end.