исправить код

[mishammm]

Код:

Program  pributok;
var
     a,b,c:real;
     begin
     Writeln('Vvedi a');
     Readln(a);
     Writeln('VVedi b');
     Readln(b);
     Writeln('Vvedu c');
     Readln(c);
 
     If (a>b) and (b>c) then writeln('b=',b);
     If (a>c) and(c>b) then writeln('b=',b);
     If (b>a) and (a>c) then writeln('c=',c);
     If (c>a) and (a>b) then writeln('b=',b);
     If (b>c) and (c>a) then writeln('a=,a);
     If (c>b) and(b>a) then writeln('a=',a);
 
      Writeln('a=',a);
      Writeln('b=',b);
      Writeln('c=',c);
     Readln
     End.

Ошибка такая:
string constant exceeds line
Сама задачка: Прибыль предприятий составляет соответственно a, b, c (денежных единиц). Определить предприятие, получившее наименьшую прибыль, и эту прибыль.

[Вадим Мошев]

В программе ошибок я не вижу.

string constant exceeds line

думаю, что это может означать, что строковая константа превышает разрешённую длину строки (128 символов).
====================
Находить минимум из трёх чисел я бы посоветовал так:

min:=a;
if b < min then min:=b;
if c < min then min:=c;

[mishammm]

еэто только отрезок кода который вы кинули? или это для все программы нужно такое применить? я уже чесно говоря запутался завтра это здавать все (
пжалуйста напишите весь код сли нет уже буду вам очень благодарен поскольку уэе н понимаю как точно делать эту прогу

[mishammm]

извиняюсь не нада уже все норм

[BDA]

Ага, одну кавычку потеряли