Задача 4 Урок 14.1

Задача 4 Урок 14.1:

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

program u141z4;
var a,b,c:integer;
procedure sum(d,e,f:integer);
begin
  writeln(d+e+f);
end;

begin
  writeln('Vvedite 3 chisla');
  readln(a,b,c);
  sum(a,b,c);
  readln();
end.