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

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

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

program  u14z2;

var a, b, c: integer;

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

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