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

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

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018Внимание! Если программа не работает, обновите версию!procedure Sum2(a,b:real; var r:real);begin  r:=a+bend;begin  var a,b,c:real;  (a,b):=ReadReal2('Введите два числа');  Sum2(a,b,c);  Writeln('Их сумма равна ',c)end.ПримерВведите два числа -3.184 153Их сумма равна 149.816