РЕШИТЕ ПОЖАЛУЙСТА ЗАДАЧУ ПО ИНФОРМАТИКЕ
А можно скинуть саму задачу
В чем вопрос задачи?
Нужны эти числа?
Само решение у вас же написано, в чем вопрос?
program treugolnik;
var a,b,c:real;
begin
write('vvedi a,b,c ');
readln( a,b,c);
writeln('tr-k sushestvuet');
write((a end.