Помогите с информатикой пожалуста, программирование в pascal

1)program gt;
var x,y:real;
begin
readln(x);
if(xlt;0)then y:=x+1 else y:=2*x;
writeln(y);
end.
2)
program gt;
var A,B:real;
begin
if(A=B)then writeln('A=B')else
if(Agt;b)then writeln(a*a)else writeln(b*b);
end.
3)
program gt;
var a,b,c,s:real;
begin
readln(a,b,c);
if(agt;=b)and(agt;=c)then s:=b+c else 
if(bgt;=a)and(bgt;=c)then s:=a+c esle
s:=a+b;
writeln(s);
end.