Составить программу вычислить значение выражения по формуле (все переменные принимают вещественные значения): z=корень 1-sina

Var
z,a:real;
begin
writeln('Vvedite a');
readln(a);
z:=sqrt(1-sin(a));
writeln('resultat ',z)
end.