Function S(a,b,c:real):real;Varp:real ;i,n, k,g: integer ;Beginp:=(a+b+c)/2;result:=Sqrt(p*(p-a)*(p-b)*(p-c))End;Vara,b,k,q,h,d,x1,x2 , w,c:real;g:string;Beginwriteln('добро пожаловать в математический помощник!!! как дела?');readln(g);writeln('найти корни квадратного уравнения(4)высоту в прямоугольном треугольнике(2)вывести таблицу тригонометрических тождеств(3) воспользоваться формулой Герона(1)');readln(k);if k=1 thenWrite('a = ');ReadLn(a);Write('b = ');ReadLn(b);Write('c = ');ReadLn(c);WriteLn('S = ',S(a,b,c));if k=2 thenwriteln('введите проекции');readln(q,w);h:=sqrt(q*q+w*w);writeln('высота=',h);if k=4 thenBeginWriteln ('Введите коэффициенты квадратного уравнения: a,b,c');Readln (A,B,C);D:=B*B-4*A*C;If D<0 Then Writeln ('Корней нет ')ElseBeginX1:=(-B+SQRT(D))/2/A;X2:=(-B-SQRT(D))/2/A;Writeln ('X1=',X1:8:3,' X2=',X2:8:3);end;end;end.ПОЖАЛУЙСТА Пожалуйста посчитайте ОТКОРЕКТИРОВАТЬ И НАЙТИ ОШИБКУ В КОДЕ, ИСПРАВИВЕЕ

Function S(a,b,c:real):real;
Var p:real;
Begin
p:=(a+b+c)/2;
result:=Sqrt(p*(p-a)*(p-b)*(p-c))
End;

Var
a,b,c,q,w,h,d,x1,x2:real;
g:string; k:integer;
Begin
writeln('добро пожаловать в математический помощник!!! как дела?');
readln(g);
writeln('воспользоваться формулой Герона(1) высоту в прямоугольном треугольнике(2) найти корни квадратного уравнения(3)');
readln(k);
case k of
 1: begin
    Write('a = ');
    ReadLn(a);
    Write('b = ');
    ReadLn(b);
    Write('c = ');
    ReadLn(c);
    WriteLn('S = ',S(a,b,c));
    end;

 2: begin
    writeln('введите проекции');
    readln(q,w);
    h:=sqrt(q*q+w*w);
    writeln('высота=',h);
    end;

  3: begin
    Writeln ('Введите коэффициенты квадратного уравнения: a,b,c');
    Readln (A,B,C);
    d:=b*b-4*a*c;
    If d<0 Then Writeln ('Корней нет ')
    Else
     Begin
     x1:=(-b+SQRT(d))/2/a;
     x2:=(-b-SQRT(d))/2/a;
     Writeln ('X1=',X1:8:3,' X2=',X2:8:3);
     end;
    end;
end;
end.

Пример:
добро пожаловать в математический помощник!!! как дела?
ok
воспользоваться формулой Герона(1) высоту в прямоугольном треугольнике(2) найти корни квадратного уравнения(3)
1
a = 3
b = 4
c = 5
S = 6

PS. Все формулы в программе оставлены без изменения!