Дано действительное число х. Вычислите его квадрат, квадратный корень, синус и косинус.

Var x, a, b, c, d:real;

begin

writeln ('Введите число: ') ; read (x) ;

a:=sqr (x) ;

writeln ('Квадрат этого числа = ', a) ;

b:=sqrt (x) ;

writeln ('Корень квадратный = ', b) ;

c:=cos (x) ;

d:=sin (x) ;

writeln ('Синус = ', c, ' | Косинус = ', d) ;

end.