program esep_1;
uses crt;
var s:array [0..1000] of real;
a, b, c, x, z:real;
i, max:integer;
begin
clrscr;
writeln('a, b, c manderin enter arkili engizu kerek: ');
readln(a, b, c); //z=a(sqr(x))+bx+c formuladagi a, b, c manderin engizu
for i:=1 to 15 do begin //x mani 1-den 15-ke dein esepteu kerek
x:=x+0.5; //x mani +0.5 kadammen osip otiradi
z:=a*(sqrt(x))+b*x+c; s[i]:=z; //manderdi massivke menshikteu
if s[1]<s[i] then max:=i else max:=1; //en ulkenin izdeu
writeln('s[',i,']=', s[i]:2:2); end; //massivti ekranga shigaru
writeln('max=',s[max]:2:2); //massivtegi en ulken mandi shigaru
readln;
end.
