NeoExpert Спасибо... я что то сам не врубаюсь... Но условие точно правильное!

Ну и вот вводите стороны треугольника, если они равны, то высчитываете площадь и высоту, если нет повторяете ввод заново, тут к стати и цикл.
Вот что я придумал.

Ой что-то я в площади напортачил, вот прикрепил новый правильный файл.

@xeL Открой pas файл как txt.

program ravn_treugolnic;
uses crt;
var a,b,c:real;{бв®а®_л ваҐгЈ®«м_ЁЄ_}
h,s:real;{C®®вўҐвб⢥__® ўлб®в_ Ё Ї«®й_¤м}
begin
clrscr;{ЋзЁй_Ґ¬ нЄа__}
repeat
Writeln('‚ўҐ¤ЁвҐ бв®а®_л ваҐгЈ®«м_ЁЄ_');
read(a);
read(b);
read(c);
until (a=b) and (b=c);
if (a=b) and (b=c) then begin
writeln('‚ ваҐгЈ®«м_ЁЄҐ ўбҐ бв®а®_л а_ў_л ', a:2,1);
h:=(sqrt(3)/2)*a;
s:=(1/4)*h*a*a;
end;
if (a>s) and (a>h) then begin
writeln('бв®а®__ а_ў__ ', a);
if s>h then begin writeln('Ї«®й_¤м а_ў__ ',s); writeln('ўлб®в_ а_ў__ ',h); end;
if h>s then begin writeln('ўлб®в_ а_ў__ ',h); writeln('Ї«®й_¤м а_ў__ ',s); end;
end;
if (s>a) and (s>h) then begin
writeln('Ї«®й_¤м а_ў__ ', s);
if a>h then begin writeln('бв®а®__ а_ў__ ',a); writeln('ўлб®в_ а_ў__ ',h); end;
if h>a then begin writeln('ўлб®в_ а_ў__ ',h); writeln('Ї«®й_¤м а_ў__ ',s); end;
end;
if (h>s) and (h>a) then begin
writeln('ўлб®в_ а_ў__ ', h);
if s>a then begin writeln('Ї«®й_¤м а_ў__ ',s); writeln('cв®а®__ а_ў__ ',a); end;
if a>s then begin writeln('бв®а®__ а_ў__ ',a); writeln('Ї«®й_¤м а_ў__ ',s); end;
end;
end.

задача вообще скорее не по программированию, а по геометрии...
Так там "раЗностороннего" или "раВностороннего" все-таки?

Там "раВностороннего", но я уже всё решил с помощью Maxell, за что ему большое спасибо!
А вообще у меня проблема была не в геометрии, а в циклах, финальную часть программы не мог правильно завершить.
Ещё раз всем СПАСИБО! Задача решена!

млин..а я такую только покруче...три недели назад....решал....
@xeL ты где учишься..или закаким она тебе эта прога нужна была? интересно

DeeP_DiveR ВГУ - Факультет Компьютерных Наук. Просто пропустил несколько лекций по циклам... пришлось самому разбираться...

@xeL а Машку Ноздрачёву знаешь? Привет ей от Макса, одноклассника её передавай, если знаешь.

Maxell нет не знаю...

У нас что тут клуб знакомств ? Поимейте совесть, все в приват.
Тема закрыта.