Написать код программы на языке паскаль
Для вычисления значений функции типа y=SQR(l/x) напишите подпрограмму обработки ошибок.

var y,x,l:real; begin writeln('Введите значение l и x соотвественно'); read(l,x); if x=0 then writeln('x не может быть равен нулю, так как дробь нельзя делить на ноль') else begin y:=sqr(l/x); writeln(y); end; end.