Урок 14. Задача 2.

Урок 14. Задача 2.

Напишите процедуру, которая выводит на экран сумму трёх целых чисел.

var a, b, c : integer;

procedure sum(x, y, z: integer);
begin
  write(x + y + z);
end;

begin
  write('Введите три числа: ');
  readln(a, b, c);
  sum(a, b, c);
  readln();
end.