Привет хотя бы 1 задание ) паскаль

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.