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

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

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

program zadacha2;
var x, y, z: integer;

procedure summ(a, b, c: integer);
begin
 write(a+b+c);
end;

begin
  readln(x, y, z);
  summ(x, y, z);
  readln();
end.