триклятое квадратное уравнение

[JOhn_k]

проблема в том чтобы ввести коэффициенты уравнения а в итоге получить на экране это уравнение в математически-корректной форме

[Valio]

Ну проблема и проблема, что дальше то?
Любая задача это проблема, пока над ней не начинают думать.

[JOhn_k]

мда...логично

[unbanned]

var
  a, b, c: integer;
  sa, sb, sc: string;

begin
  readln(a, b, c);
  str(a, sa);
  str(b, sb);
  str(c, sc);
  if not (a = 1) or (a = 0) then sa := sa + '*';
  if (b > 0) and (a <> 0) then sb := '+' + sb + '*'
  else if (b <> 0) and (a <> 0) then sb := sb + '*';
  if (c > 0) and ((a <> 0) and (b <> 0)) then sc := '+' + sc;
  if a = 1 then sa := '';
  if (b = 1) and (a <> 0) then sb := '+';
  if (b = 1) and (a = 0) then sb := '';
  if a = -1 then sa := '-';
  if b = -1 then sb := '-';
  if c = 0 then sc := '';
  if a = 0 then sa := ''
  else sa := sa + 'X^2';
  if b = 0 then sb := ''
  else sb := sb + 'X';
  writeln(sa, sb, sc, '=0');
  if (a = 0) or ((b = 0) and (a = 0)) then writeln('Неверное условие');
end.

вот... писалось все это очень давно и далеко не рационально.
работать - работает, если не устраивает - переделывай\доделывай сам...