Решите безотлагательно, прошу!

1) var a,b,c,h,P,S:real;

begin

writeln('Введите значение а: ');

readln(a);

writeln('Введите значение b: ');

readln(b);

writeln('Введите значение c: ');

readln(c);

writeln('Введите значение h: ');

readln(h);

P:=a+b+c;

S:=1/2*a*h;

writeln('P = ',P);

writeln('S = ',S);

end.

2) var

y,x:real;

begin

writeln('Введите значение x: ');

readln(x);

if xlt;0 then

writeln('y = ',10*sqr(x))

else

if xgt;=0 then

writeln('y = ',3*x+2)

end.

3) var

y,x:real;

begin

writeln('Введите значение x: ');

readln(x);

if xlt;2 then

writeln('y = ',sqr(x)+3)

else

if x=2 then

writeln('y = ',2*x)

else

if xgt;2 then

writeln('y = ',x-1);

end.