Язык Паскаль. Написать на языке программирования у=sqrt(x-4)

varx, y: real;beginreadln(x);x:=x-4;if (x<0) then writeln('Error')else writeln(sqrt(x):0:5);readlnend.Примечания:  (sqrt(x):0:5); - 5 - количество знаков после запятой, сколько надо, столько и пишешь. Ноль - не трогать.