Задача 2 урок 14

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

var
  a, b, c: integer;

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

begin
  readln(a, b, c);
  sum(a, b, c);
  readln();
end.