OsszeadasF

Program OsszeadasF;
Uses Crt;
Var
a,b,c:integer;

Function Osszeadas(x,y:integer):integer;

Begin
Osszeadas:=x+y;
End;

BEGIN
Clrscr;
Writeln('Mondj ket szamot, megmondom az osszeget!');
Readln(a,b);




c:=Osszeadas(a,b);
Writeln;
Writeln('A szam osszege: ',c);
Readln;
END.