Решить уравнение y=sqrt(3-a) Pascal turbo

Question

Решить уравнение y=sqrt(3-a) Pascal turbo

Answer 1

Var y:real; a:integer
begin
readln(a);
y:=sqrt(3-a);
writeln('Значение переменной равно: ',y);
end.