помогите! почемуто програма в паскаль считает неправильно, помогите найти ошибку.

Написати програму знаходження кутів багатокутника IKLMN зі сторонами i,k,l,m,n та діагоналями dl dm.
Вказівки: кут А трикутника виражається через його сторони a,b,c за формулою: A=2arctg, де p= – півпериметр. Попередні дані задавати самостійно.

program proced;
uses crt;
const i=7; k=2; l=5; m=6; n=4; dl=15; dm=11;
var kut1,e,w,q:real;
procedure kut(a,b,c:integer; var A1:real);
var p:real;
begin
p:=(a+b+c)/2;
A1:=2*arctan((p-b)*(p-c)/p*(p-a));
end;
begin
clrscr;
writeln('Znaidemo kut KIN:');
kut(k,i,dl,q);
kut(l,dl,dm,w);
kut(m,dm,n,e);
kut1:=q+w+e;
writeln('kut KIN=',kut1:3:2);
writeln(' ');
writeln('Znaidemo kut KLM:');
kut(dm,dl,l,q);
kut(i,k,dl,w);
kut1:=q+w;
writeln('kut KLM=',kut1:3:2);
writeln(' ');
writeln('Znaidemo kut LMN:');
kut(dl,l,dm,q);
kut(n,dm,m,w);
kut1:=q+w;
writeln('kut LMN=',kut1:3:2);
writeln(' ');
writeln('Znaidemo kut LKI:');
kut(dl,i,k,q);
writeln('kut LKI=',q:3:2);
writeln(' ');
writeln('Znaidemo kut MNI:');
kut(dm,m,n,q);
writeln('kut MNI=',q:3:2);
readln;
end.

A=2arctg((p-b)*(p-c)/p*(p-a))