Напишите программу, которая будет по 3 сторонам треугольника находить косинусы всех углов в радианах и градусах. у меня такое получилось, но он не привально вычисляет (сумма углов не равна 180 градусов).
program tc3c;
var a, b, c, d, e, f, g, j, i, k, l, m, n, o, p: double;
begin
read(a, b, c);
d: =a*a;
writeln ('a в квадрате=', d);
e: =b*b;
writeln ('b в квадрате=', e);
f: =c*c;
writeln ('c в квадрате=', f);
g: =(e+f-d)/(2*b*c);
j: =cos(g);
writeln ('cosa в радианах=', j);
n: =((180/pi)*j);
writeln ('первый угол в градусах=', n);
i: =(d+f-e)/(2*a*c);
k: =cos(i);
writeln ('cosb в радианах=', k);
o: =((180/pi)*k);
writeln ('второй угол в градусах=', o);
l: =(d+e-f)/(2*a*b);
m: =cos(l);
writeln ('cosc в радианах=', m);
p: =((180/pi)*m);
writeln ('третий угол в градусах=', p);
end.

Sub Zadanie16087714()
    Const text = "Вскоре после маленькой княгини вошел массивный, толстый молодой человек с стриженою головой, в очках, светлых панталонах по тогдашней моде, с высоким жабо и в коричневом фраке. Этот толстый молодой человек был незаконный сын знаменитого екатерининского вельможи, графа Безухова, умиравшего теперь в Москве. Он нигде не служил еще, только что приехал из-за границы, где он воспитывался, и был первый раз в обществе. Анна Павловна приветствовала его поклоном, относящимся к людям самой низшей иерархии в ее салоне. Но, несмотря на это низшее по своему сорту приветствие, при виде вошедшего Пьера в лице Анны Павловны изобразилось беспокойство и страх, подобный тому, который выражается при виде чего-нибудь слишком огромного и несвойственного месту. Хотя действительно Пьер был несколько больше других мужчин в комнате, но этот страх мог относиться только к тому умному и вместе робкому, наблюдательному и естественному взгляду, отличавшему его от всех в этой гостиной. "
    k = 0

    for i = 1 to Len(text)
        c = LCase(Mid(text, i, 1))
        If c="а" or c="е" or c="о" or c="у" or c="и" or c="я" or c="ё" or c="ю" or c="э" or c="ы" Then
            k = k + 1
        End If
    next
    MsgBox (k)
End Sub

Call Zadanie16087714()

ответ 323. Правильно?
Код написан на VBScript

Sub Zadanie16087714()
    Const text = "Вскоре после маленькой княгини вошел массивный, толстый молодой человек с стриженою головой, в очках, светлых панталонах по тогдашней моде, с высоким жабо и в коричневом фраке. Этот толстый молодой человек был незаконный сын знаменитого екатерининского вельможи, графа Безухова, умиравшего теперь в Москве. Он нигде не служил еще, только что приехал из-за границы, где он воспитывался, и был первый раз в обществе. Анна Павловна приветствовала его поклоном, относящимся к людям самой низшей иерархии в ее салоне. Но, несмотря на это низшее по своему сорту приветствие, при виде вошедшего Пьера в лице Анны Павловны изобразилось беспокойство и страх, подобный тому, который выражается при виде чего-нибудь слишком огромного и несвойственного месту. Хотя действительно Пьер был несколько больше других мужчин в комнате, но этот страх мог относиться только к тому умному и вместе робкому, наблюдательному и естественному взгляду, отличавшему его от всех в этой гостиной. "
    k = 0

    For i = 1 To Len(text)
        c = Mid(text, i, 1)
        If InStr(1, "аэоуыяеёюи", c, 1) > 0 Then
            k = k + 1
        End If
    Next
    MsgBox (k)
End Sub

Zadanie16087714()

Код написан на VBScript