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

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

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

var i, a, b, c: integer;

begin
  i:=0;
  while (i <> 3) do
    begin
      writeln('vvedite chislo: ');
      i:=i+1;
      if (i=1) then
        readln(a)
      else if (i=2) then
        readln(b)
      else if (i=3) then
        readln(c)
    end;

  writeln();
  writeln('otvet : ',a, b, c);

  writeln('<<konec>>');

  readln();

end.