program n1;
var q,w:integer;
begin
writeln('введите первое число');
readln(q);
writeln('введите второе число');
readln(w);
if q+w>0 then begin
writeln('сумма чисел больше нуля');
write(q*w);
end
else begin
writeln('сумма чисел меньше нуля');
write(q/w)
end;
end.
Объяснение:
