program test; uses crt;
label m1, m2, m3;
var
a,b,c:real;
begin clrscr;
writeln('Введите числа');readln(a,b,c);
if (a+b>0) and (a+c>0) and (b+c>0) then
if (sqr(a)+sqr(B)=sqr©) or (sqr(a)+sqr©=sqr(B)) or (sqr(B)+sqr©=sqr(a)) then
begin
writeln('Прямоугольный');
goto m1;
end;
if (sqr(a)+sqr(B)<sqr©) or (sqr(a)+sqr©<sqr(B)) or (sqr(B)+sqr©<sqr(a)) then
begin
writeln('Тупоугольный');
goto m3;
end;
if (sqr(a)+sqr(B)>sqr©) or (sqr(a)+sqr©>sqr(B)) or (sqr(B)+sqr©>sqr(a)) then
begin
writeln('Остроугольный');
goto m2;
end;
end
else
begin
writeln('Такого треугольника нет');
end;
readkey;
m1: m2: m3:
end.
Не подскажите в чем ошибка выдает Undefined label in preceding statement part (m2)