program nen;
var
a,b :real;
begin
readln(a,b);
if (a>0) and (b>0) then
write('Сумма чисел равна ', a + b)
else
writeln('Произведение чисел равно ', a *b);
end.
program nen;
var
a,b :real;
begin
readln(a,b);
if (a>0) and (b>0) then
write('Сумма чисел равна ', a + b)
else
writeln('Произведение чисел равно ', a *b);
end.