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

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

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

program U14Z2;
var a,b,c:integer;
procedure sum(x,y,z:integer);
begin
  write(x+y+z);
end;
begin
  writeln('vvedite a, b, c');
  readln(a,b,c);
  sum(a,b,c);
  readln();
end.