Надо в паскале сделать программу с решением этого ; 1) y=2ax²+b√x при x> 100 2) y=a√x²+100 - bx x< 100

Var a,x,b:integer;y:real;
begin
writeln('a,b,x');
readln(a,b,x);
if x>=100 then y:=2*a*sqr(x)+b*sqrt(x) else y:=a*sqrt(x)+100-b*x;
writeln(y:5:2);
end.