Ответы и объяснения

2013-12-11T17:26:04+04:00
1)
var
a,b:longint;
begin
readln(a,b);
if (a*b)>(a+b) then writeln('Произведение больше') else writeln('Сумма больше');
end.
2)
var
x,y,z:longint;
begin
readln(x);
if x<>-5 then y:=(x-4)/(x+5);
writeln(y);
end.