Uses crt
Var a,b,c,x,r1,r2:integer;
Begin
Write(‘vvedi
chislo ,a=’);
Readln(a);
Write(‘vvedi
chislo ,x=’);
Readln(x);
Write(‘vvedi
chislo ,b=’);
Readln(b);
Write(‘vvedi
chislo ,c=’);
Readln(c);
r1:=a*sqr(x)+b*x+c;
write(‘uravnenie=’,r1);
readln(r1);
end.