Написать процедуру которая складывает два любых числа (два параметра) Срочно ** паскале

Question

Написать процедуру которая складывает два любых числа (два параметра)
Срочно на паскале

Answer 1

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

procedure Sum2(a,b:real; var r:real);
begin
  r:=a+b
end;

begin
  var a,b,c:real;
  (a,b):=ReadReal2('Введите два числа');
  Sum2(a,b,c);
  Writeln('Их сумма равна ',c)
end.

Пример
Введите два числа -3.184 153
Их сумма равна 149.816

Answer 2

Var
a, b, c: integer;
procedure sum(x, y: integer; var z: integer);
begin
z := x + y;
end;
begin
writeln('Введите два числа: ');
readln(a, b);
sum(a, b, c);
writeln(c);
end.