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

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

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

Решение:

var s,k,m,n: integer;

procedure sum3(a,b,c: integer; var d:integer);
begin
  d:=a+b+c;
end;
begin
  k:=1;
  m:=2;
  n:=3;
  sum3(k,m,n,s);
  writeln('summa = ',s);
  readln();
end.

Консоль:

summa = 6