uses crt;
var a,b,c:integer;
{-----------------------ham-tinh-tong-----------------}
function tong(x,y:integer):integer;
begin
tong:=x+y;
end;
{---------------------ham-tinh-tich--------------------}
function tich(m,n:integer):longint;
begin
tich:=m*n;
end;
{---------------------chuong-trinh-chinh---------------------}
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
writeln('Tong ba so la: ',tong(a,tong(b,c)));
writeln('Tich ba so la: ',tich(a,tich(b,c)));
readln;
end.