Программа запускается, но ввожу значения переменных, а ответ не выдаёт.Не могу понять, в чём проблема?Занимаюсь недавно, не ругайте))И правильно ли я её вообще решила?varmax,x,y,z,t:real;beginreadln(x,y,z);if(x>y)then max:=xelse max:=y;if(z>max)then max:=z;if(z*maxt:=x*x+y*y+z*z-2*sqr(max);if(t>0)then writeln('acute');if(t=0)then writeln('right');if(t<0)then writeln('obtuse')else writeln('impossible');end;readln;end.Сама Задание, если понадобитсяОпределите тип треугольника (остроугольный, тупоугольный, прямоугольный) с данными сторонами.Входные данныеДаны три натуральных числа – стороны треугольника.Выходные данныеНеобходимо вывести одно из слов: right для прямоугольного треугольника, acute для остроугольного треугольника, obtuse для тупоугольного треугольника или impossible, если входные числа не образуют треугольника.