Определить стороны треугольника, заданного величинами своих углов и радиусом описанной окружности. применить теорему синусов(basic)

PASCAL
a,b,c:real;
a1,b1,c1,r: integer;
begin  
writeln('введите угол А=');  
readln (a1);  
writeln ('введите угол B=');  
readln (b1);  
c1:=180-(a1+b1);  
writeln ('введите радиус r=');  
readln (r);  
a:=2*r*sin(a1);  
b:=2*r*sin(b1);  
c:=2*r*sin(c1);  
writeln('сторона А=',a);  
writeln('сторона B=',a);  
writeln('сторона C=',a);  
readln;
end.
BASIC
cls
input "a=",a1
input "b=",b1
c1=180-(a1+b1)
input "r=",r
a=2*r*sin(a1)
b=2*r*sin(b1)
c=2*r*sin(c1)
print "a=";a
print "b=";b
print "c=";c

Procedure KolDel(n:integer; var k:integer);
var i:integer;
begin
k:=0;
for i:=1 to n do
 if n mod i=0 then k:=k+1;
end;
var m,n,i:longint;
md,mx:integer;
begin
repeat
writeln('Введите интервал, 2 натуральных числа, второе больше первого');
readln(m,n);
until n>m;
mx:=1;
for i:=m to n do
 begin
 KolDel(i,md);
 if md>mx then mx:=md;
 end;
writeln('Наибольшее количество делителей имеют числа:');
for i:=m to n do
 begin
 KolDel(i,md);
 if md=mx then write(i,' ');
 end;
writeln;
write('количество=',mx);
readln
end.

Пример:
Введите интервал, 2 натуральных числа, второе больше первого
10 100
Наибольшее количество делителей имеют числа:
60 72 84 90 96
количество=12

С небольшой правкой процедуры, уменьшающей вдвое время ее работы.

procedure KolDel(n: integer; var res: byte);
var
  i: integer;
begin
  res := 2;
  for i := 2 to n div 2 do
    if n mod i = 0 then
      res := res + 1;
end;

var
  m, n, i: longint;
  mx, kd: byte;

begin
  repeat
    writeln('Введите интервал, 2 натуральных числа, второе больше первого');
    readln(m, n);
  until n > m;
  mx := 1;
  for i := m to n do
  begin
    KolDel(i, kd);
    if kd > mx then mx := kd
  end;
  writeln('Наибольшее количество делителей имеют числа:');
  for i := m to n do
  begin
    KolDel(i, kd);
    if kd = mx then write(i, ' ')
  end;
  writeln;
  write('количество=', mx);
  readln
end.

А вот такой вариант работает в 3.5 раза быстрее:

procedure KolDel(n: integer; var res: byte);
var
  i: integer;
begin
  res := 2;
  for i := 2 to n div 2 do
    if n mod i = 0 then
      res := res + 1;
end;

var
  m, n, i: longint;
  mx, kd, k: byte;
  a: array[1..255] of longint;

begin
  repeat
    writeln('Введите интервал, 2 натуральных числа, второе больше первого');
    readln(m, n);
  until n > m;
  mx := 1;
  for i := m to n do
  begin
    KolDel(i, kd);
    if kd > mx then begin mx := kd; k := 1; a[k] := i end
    else
    if kd = mx then begin k := k + 1; a[k] := i end
  end;
  writeln('Наибольшее количество делителей имеют числа:');
  for i := 1 to k do Write(a[i], ' ');
  Writeln;
  Write('Количество=', mx);
  readln
end.

Пример
Введите интервал, 2 натуральных числа, второе больше первого
37 86
Наибольшее количество делителей имеют числа:
60 72 84
Количество=12