01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / MMM

unit mmm;

interface
procedure summ(x,y:integer; var r:integer);
function kvadro(x:integer): integer;

implementation
uses crt;

procedure summ(x,y:integer; var r:integer);
begin
r:=x+y;
end;

function kvadro(x:integer): integer;
begin
kvadro:=x*x;
end;

begin
end.