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

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

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

var i, k, a, b, c:integer;
  begin
    i:=0;
    while i<3 do
      begin
        readln(k);
        if (i=0) then
          a:=k
        else if (i=1) then
          b:=k
        else
          c:=k;
        i:=i+1;
      end;
    writeln(a, '   ', b,'   ',c);
    readln();
  end.