Написать код программы на языке паскаль для вычисления значений функции типа 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.