Составить алгоритм и программу для нахождения значения функции: у=(в корне кадратном)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.