Написать программу нахождения значения выражения ОЧЕНЬ СРОЧНО!!

//PascalABC.Net 3.2beginvar a:=readreal ('Введите a: ');var b:=readreal ('Введите b: ');if a>0 then write ('y=', sqrt((5*a*sqr(b)+6)/(25*a))) else write ('a<=0');end.