Впаскале написать программу, которая вычисляет y по формуле y=√ab. в случае когда ab< 0 выводить на экран "решения нет". заранее

BEGIN
writeln('Введите А, В:');
readln(a, b);
if (a*b < 0)
then write('решения нет');
else write(sqrt(a*b));
END.