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

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

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

Примечание: в одном витке цикла должен быть только 1 readln()

program Project1;
var a, b, c, d: integer;
begin
  for d := 1 to 3 do
  begin
    writeln('vvedite chislo');
    if (d = 1) then
      readln(a)
    else if (d = 2) then
      readln(b)
    else
      readln(c);
  end;
  writeln(a, ' ', b, ' ', c);
  readln();

end.