Question

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

Answer 1

1)program gt;
var x,y:real;
begin
readln(x);
if(x<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(A>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(a>=b)and(a>=c)then s:=b+c else 
if(b>=a)and(b>=c)then s:=a+c esle
s:=a+b;
writeln(s);
end.