Написать программу в Паскале.
!

1) var x, y: integer;

begin

readln (x);

y:=Sqr(x);

writeln(y);

end.

2)var x: integer;

y:Real;

begin

readln (x);

y:=Sqrt(x);

writeln(y);

end.

3)var x: integer;

y:real;

begin

readln (x);

y:=exp(x);

writeln(y);

end.

4)var x: integer;

y:real;

begin

readln (x);

y:=sqrt(sqr(x));

writeln(y);

end.