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

1)program gt;var x,y:real;beginreadln(x);if(x<0)then y:=x+1 else y:=2*x;writeln(y);end.2)program gt;var A,B:real;beginif(A=B)then writeln('A=B')elseif(A>b)then writeln(a*a)else writeln(b*b);end.3)program gt;var a,b,c,s:real;beginreadln(a,b,c);if(a>=b)and(a>=c)then s:=b+c else if(b>=a)and(b>=c)then s:=a+c esles:=a+b;writeln(s);end.