Задачка на нахождение.

[Paul Oakenfold]

Пусть даны три числа. Если они могут быть длинами сторон треугольника, определите его вид (прямоугольный, тупоугольный, остроугольный). Вычислите его периметр и площадь.

program Paul_Oakenfold;
uses crt;
var
 a,b,c,k1,k2,g:integer;
 i:integer;
 p:integer; {perimetr}
 pp:double; {poluperimetr}
 
begin
 clrscr;
 write('Vvedite storonu a: '); readln(a);
 write('Vvedite storonu b: '); readln(b);
 write('Vvedite storonu c: '); readln(c);
 if (a+b>c) and (a+c>b) and (b+c>a) then begin
    g:=a; k1:=b; k2:=c;
    if g<b then begin
       g:=b; k1:=a; k2:=c;
    end;
    if g<c then begin
        g:=c; k1:=b; k2:=a;
    end;
    if sqr(g)>(sqr(k1)+sqr(k2)) then writeln('Treugolnik tupougolnii') else
    if sqr(g)<(sqr(k1)+sqr(k2)) then writeln('Treugolnik ostrougolnii') else
       writeln('Treugolnik pramougolnii');
 
    p := a + b + c;
    writeln('Perimetr: ', p);
 
    pp := p / 2;
    writeln('Ploshad': ', Sqrt(pp*(pp - a)*(pp - b)*(pp - c)));
 
 end else writeln('Treugolnik nesushestvuet');
 readkey;
end.

writeln('Ploshad': ', Sqrt(pp*(pp - a)*(pp - b)*(pp - c)));

Выдаёт ошибку Error 8: String constant exceeds line.
Ребят подскажите почему?

[Samopal]

Ошибка 8. Строкавая константа превышает размеры строки

writeln('Ploshad': ', Sqrt(pp*(pp - a)*(pp - b)*(pp - c)));

Площадь ты написал и оспользовал апостроф... нельзя.. убери егго и всё будет ок.

writeln('Ploshad: ', Sqrt(pp*(pp - a)*(pp - b)*(pp - c)));

Вот так вот

а еща между этими строчками:

program Paul_Oakenfold;
uses crt;

советую тебе вставить директиву:

{$N+}

[Samopal]

Кароче вот:

program Paul_Oakenfold;
{$N+}
uses crt;
var
 a,b,c,k1,k2,g:integer;
 i:integer;
 p:integer; {perimetr}
 pp:double; {poluperimetr}
 rez: real;
 
begin
 clrscr;
 write('Vvedite storonu a: '); readln(a);
 write('Vvedite storonu b: '); readln(b);
 write('Vvedite storonu c: '); readln(c);
 if (a+b>c) and (a+c>b) and (b+c>a) then begin
    g:=a; k1:=b; k2:=c;
    if g<b then begin
       g:=b; k1:=a; k2:=c;
    end;
    if g<c then begin
        g:=c; k1:=b; k2:=a;
    end;
    if sqr(g)>(sqr(k1)+sqr(k2)) then writeln('Treugolnik tupougolnii') else
    if sqr(g)<(sqr(k1)+sqr(k2)) then writeln('Treugolnik ostrougolnii') else
       writeln('Treugolnik pramougolnii');
 
    p := a + b + c;
    writeln('Perimetr: ', p);
 
    pp := p / 2;
    rez:=Sqrt(pp*(pp - a)*(pp - b)*(pp - c));
    writeln('Ploshad: ', rez:3:3);
  end
 else writeln('Treugolnik nesushestvuet');
 readkey;
end.