прога для написания музыки в паскале :D

program srp;
uses crt;
var x,y,m,n,k:integer;
function summa(a,b:integer):integer;
var s:integer;
begin
summa:=a+b;
s:=summa;
end;
function raznost(a,b:integer):integer;
var r:integer;
begin
raznost:=a-b;
r:=raznost;
end;
function proizvedenie(a,b:integer):integer;
var p:integer;
begin
proizvedenie:=a*b;
p:=proizvedenie;
end;
begin
writeln('ââåäèòå x,y ');
readln(x,y);
m:=summa(x,y);
n:=raznost(x,y);
k:=proizvedenie(x,y);
writeln('ñóììà=',m,' ðàçíîñòü=',n,' ïðîèçâåäåíèå=',k,' ');
readln;
end.