1)var
x:real;
begin
writeln('введите x');
write('x=');
readln(x);
if ((2+x)/3>0)then write('больше')
end.
2)var
x:real;
begin
writeln('введите x');
write('x=');
readln(x);
if ((2+x)/3>0)then write('больше') else write('меньше или равно')
end.
3)var
x:real;
begin
writeln('введите x');
write('x=');
readln(x);
if ((2+x)/3>0)then write('больше') else
if ((2+x)/3<0)then write('меньше') else write('равно')
end.
