пример решения

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

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

Урок 14 задача 1

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

var
  a, b, c, d: integer;
procedure sum(x, y, z: integer; var v: integer); // начало объявления процедуры
begin
     v := x + y + z;   // задаем процедцру
end; // конец тела процедуры

begin // начало тела программы
      write('Введите два числа: ');
      readln(a, b, c);
      sum(a, b, c, d);
      writeln(d);
      readln();
end.