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

Урок 11

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

var a, b, c, i: integer;

begin
  i := 0;
  b := 0;
  c := 0;


  while i < 3 do
  begin
    
    writeln('Vvedite celoe chislo');
    readln(a);

    if (i < 2) then
    begin
      c := b;
      b := a;
    end;

    i := i + 1;

  end;

end.

КОНСОЛЬ

Vvedite celoe chislo
1
Vvedite celoe chislo
5
Vvedite celoe chislo
9