все файлы, которые были использованы / расчет углового коэф

 program qwerty;
var
h,a1,a2,s,a,v,c,z,b,f: real; i,n,j,m:integer;
begin
writeln ('a'); readln (a);writeln ('z'); readln (z);
writeln ('c'); readln (c);
h:=5; n:=5; m:=5; v:=h-a;
for j:=0 to m do begin
for i:=0 to n do begin
b:=sqrt(sqr(abs((h/(h/c))-(h*i/n))+sqr(abs((h/(h/z))-(h*j/m)))));
s:=sqrt((v*v)+(b*b));
a1:=v/s;
a2:=b/s;
f:=(a1*a2)/(3.14*(s*s));
writeln ('f i',i,' j',j,'=',f);
end; writeln(); end;
end.