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

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.