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

Задача № 2

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

program pascal_procedure_amount;

procedure sum( s1 , s2  , s3  : integer ); 
begin // начало тела процедуры
  write( s1 + s2 + s3 ) ;
end; // конец тела процедуры

begin  // начало тела основной программы
  sum( 43 , 54 , 32 );// вызов прoцедуры 
end. // конец тела основной программы