ДАЮ 100 поинтовПереведите функцию на язык программированияНаписать на языке программного выражения

Program n1;
var x,l,t,k,m,res: real;
begin
readln(x,l,t,k,m);
res:=sqr((t*t-k*k)/(sqr(sqr(m))-l*sqr(l)))+sqrt(abs((sqrt(x+4))/(12-abs(x))+4));
write(res);
end.