Ответ:

program eqationcreator;

var a,b,c:integer;

begin

a:=random (100)-99;

b:=random (100)-99;

c:=random (200)-49;

if c>0 then

writeln (a,'x^2',b,'x+',c) else

writeln (a,'x^2',b,'x',c)

end.

Объяснение: