Задание 2 Урок 14

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

procedure sum(x, y, h: integer);
  var result : integer;
begin
  result := (x + y + h);
  write(result);
end;

begin
  write('Результат процедуры: ');
  sum(1, 2, 3);
  readln();
end.