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

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

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

program task_2_lesson_14;
var a, b, c, res : integer;
procedure sum3(x, y, z: integer; var sum: integer);
begin
  sum := x + y + z;
  write(sum);
end;
begin
  res := 0;
  readln(a,b,c);
  sum3(a,b,c,res);
  readln();
end.