Составить алгоритм и программу для нахождения значения функции: у=(в корне кадратном)2х-3 , если х-произвольное число

Var x,y:real;
begin
writeln ('Введите x: ');
read (x);
if x>=1.5 then
begin
y:=SQRT(2*x-3);
writeln('y = ', y);
end else
writeln ('Под корнем отрицательное число!');
end.