Процедура вычисляющие сумму 2 целых чисел

program Psum;
var result,a,b: integer;
 
procedure sum (var n1, n2: integer);
var
result:integer;
begin
result:=n1+n2;
end;
 
begin
write ('Первое число');
read(a);
write ('‚Второе число');
read(b);
sum(a,b);
write('‘Сумма 2 целых чисел равна=­  ', result);
end.

var result,a,b: integer;
 
procedure sum (var n1, n2: integer);
begin
   result:=n1+n2;
end;
 
begin
  write ('Первое число');
  readln(a);
  write ('Второе число');
  readln(b);
  sum(a,b);
  write('‘Сумма 2 целых чисел равна=­  ', result);
end.

 
procedure sum (n1, n2: integer; var pSum : integer);
begin
  pSum := n1+n2;
end;
 
var a,b, MySum: integer;
begin
  write ('Первое число: ');
  readln(a);
  write ('Второе число: ');
  readln(b);
  sum(a,b, MySum);
   write('‘Сумма 2 целых чисел равна=­  ', MySum);
end.

ReadLn(MyDivider);
.....
sum(a,b, MySum);
MySum := MySum div MyDivider; 
 
{можно и деление с плавающей запятой использовать, 
   но тогда нужно изменить тип переменной MySum на тип с плавающей запятой
    на Double, например: MySum : Double 
 
тогда можно написать MySum := MySum / MyDivider }

if MyDivider<>0 then 
   MySum := MySum div MyDivider;   {MySum := MySum / MyDivider;}

Procedure SumAndDiv (n1, n2, n3: integer; var pRes : integer);
begin
  pRes := n1+n2;
  if n3<>0 then pRes := pRes / n3
end;

Program Psum
Var Mysum: double; a,b:integer
procedure sum (n1, n2: integer; var pSum : integer);
begin
  pSum := n1+n2;
end;
 
var a,b, MySum: integer;
begin
  write ('Первое число: ');
  readln(a);
  write ('Второе число: ');
  readln(b);
  write ('Число для деления: ');
 readln (MyDivider);
sum(a,b, MySum);
   write('Сумма 2 целых чисел равна=­  ', MySum);
MySumDiv := MySum / MyDivider;
write ('Число деленная на'MyDivider 'равно':= MySumDiv);
end.

var x,y,c,s:integer;
function f(a,b:integer):integer;
begin
  f:= a+b;
end;
begin
 writeln('первое число:');
 readln(x);
 writeln('второе число:');
 readln(y);
 writeln('‘Сумма ',f(x,y));
 readln;
 writeln('число для деления:');
 readln(c);
  s:=f(x,y) div c;
  writeln('Деленная сумма '= s);
  readln;
  end.

writeln('Деленная сумма =', s);