program bt;
uses crt;
var m,n,T,S:real;
begin
clrscr;
writeln('hay nhap m: ');readln(m);
writeln('hay nhap n: ');readln(n);
if n > 0 then
begin
S:=(m*m)+(n*n);
write('tong binh phuong cua hai so la: ',S:2:0);
end;
if n < 0 then
begin
T:=m*n;
write('tich cua hai so la: ',T:2:0);
end;
readln;
end.