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

Урок 14

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

var a, b, c: integer;

  procedure p3(d, e, f: integer);
  begin
    writeln(d + e + f);
  end;

begin
  a := 3;
  b := 4;
  c := 5;
  p3(a, b, c);
  readln();
end.

КОНСОЛЬ

12