Задача на нахождение площади треугольника, Подскажите, правильный ли у меня код. Опции

[Merlin]

Введите три числа. Если они могут быть сторонами равностороннего треугольника, то найдите его периметр и площадь.

Код

Program tr;
 var
   S,P,a,b,c,alfa: real;
begin
  repeat
write('ввод a,b');
readln(a,b);
 until (a=b) and (a>0) and (b>0);
 repeat
write('ввод c');
readln(c);
 until ( c>0) and (a=c);
 repeat
write('ввод alfa');
readln(alfa);
until(alfa>0) and (alfa<180);
  alfa:=alfa*pi/180;
P:=a+b+c;
S:=1/2*a*b*sin(alfa);
writeln('площадь треугольника S=' , S:8:3);
writeln('периметр треугльника P=' , P:8:3);
 end.