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(c)) or (sqr(a)+sqr(c)=sqr(B)) or (sqr(B)+sqr(c)=sqr(a)) then
   	begin
   	writeln('Прямоугольный');
   	goto m1;
   	end;
   if  (sqr(a)+sqr(B)<sqr(c)) or (sqr(a)+sqr(c)<sqr(B)) or (sqr(B)+sqr(c)<sqr(a)) then
   	begin
   	writeln('Тупоугольный');
   	goto m3;
   	end;
   if  (sqr(a)+sqr(B)>sqr(c)) or (sqr(a)+sqr(c)>sqr(B)) or (sqr(B)+sqr(c)>sqr(a)) then
   	begin
   	writeln('Остроугольный');
   	goto m2;
   	end;
end
else
	begin
	writeln('Такого треугольника нет');
	end;
readkey;
    m1: m2: m3:
end.

writeln('Введите числа');readln(a,b,c);
if (a+b>0) and (a+c>0) and (b+c>0) then BEGIN { <--- добавь begin}