var S,a,b:real;
begin
readln(a);
readln(b);
if(a>b) then a:=b-a else a:=a+b;
if(b>a) then S:=a+b else begin
b:=b*b;
a:=a/2;
end;
if(S>50) then
begin
if(S>1) then
writeln('число положительное')
else
writeln('число отрицательно');
end
else
begin
S:=S-a;
S:=S-b;
S:=S+1;
end;
end.
Объяснение:
Ну вроде работает)
