3 отрезка и 3 треугольника

[Айдар]

ДОбрай день всем прошу помочь с задачей.
даны длины трех отрезков а b c определить какого типа треугольник можно построить из заданных отрезков (равносторонний, равнобедренный, или простой). надо учитывать:
a,b,c>0, a+b>c, b+c>a, a+C>b.

Равносторнний (a=b=c), РАвнобедренный ((a=b)<>c) and ((a=c)<>b) and ((b=c)<>a), простой треугольник (a<>b<>c).
Прошу помочь до завтра.
Блок схему я уже сделал но вот блин в паскали записать ни как, помогите.

[merets]

uses crt;
var a,b,c:real;
begin
writeln ('vvedit storonu a');
readln (a);
writeln ('vvedit b');
readln (b);
writeln ('vvedit c');
readln(c);
if (a=b) and (a=c) then writeln ('ravnostoronniy');
repeat until keypressed;
end.
для остальных допишеш

[Mr.Qwerty]

uses crt;
var a,b,c:real;
begin
writeln ('vvedit storonu a');
readln (a);
writeln ('vvedit b');
readln (b);
writeln ('vvedit c');
readln(c);
if (a=b) and (a=c) then writeln ('ravnostoronniy');
repeat until keypressed;

- merets, слишком громоздко

для остальных допишеш

, он же написал, что:

но вот блин в паскали записать ни как, помогите.

Айдар, вот держи код, только что написал:

Program Treugl;
uses Crt;//подключаем модуль
var a,b,c:integer; //вводим переменные для введенных данных 
    x:string; //переменная под ответ;) 
begin
ClrScr; //очистка экрана
Writeln('Введите a,b,c'); //запрос на ввод данных
Readln(a,b,c); //чтение данных
if (a>0)and(b>0)and(c>0)and((a+b)>0)and((b+c)>a)and((a+c)>b) then //соблюдение необходимого условия
 begin
  if (a=b) and (b=c) and (a=c) then x:='равносторонним' else x:='равнобедренным'; 
  if not(a=b)and not(b=c) and not(c=a) then x:='простым'else x:='равнобедренным';
  end;
Writeln('Ваш треугольник является -',x); //вывод результата
Readln; //ожидание действия
end.

[cherr]

А можно еще короче

Program Treugl;
uses Crt;//подключаем модуль
var a,b,c:integer; //вводим переменные для введенных данных 
    x:string; //переменная под ответ;) 
begin
ClrScr; //очистка экрана
Writeln('Введите a,b,c'); //запрос на ввод данных
Readln(a,b,c); //чтение данных
if (a>0)and(b>0)and(c>0)and((a+b)>0)and((b+c)>a)and((a+c)>b) then //соблюдение необходимого условия
 begin
  if (a=b) and (b=c) and (a=c) then x:='равносторонним' else if not(a=b)and not(b=c) and not(c=a) 
  then x:='простым' else x:='равнобедренным'; 
 end;
Writeln('Ваш треугольник является -',x); //вывод результата
Readkey; //ожидание действия
end.

[Айдар]

все понял но вот одно но:
if (a=b) and (b=c) and (a=c) then x:='равносторонним' else if not(a=b)and not(b=c) and not(c=a)
then x:='простым' else x:='равнобедренным';
Равнобедренный треугольник это тот у которого
((a=b)<>c) and ((a=c)<>b) and ((b=c)<>a), а тут получается
(a=b)and (b=c) and (c=a);
Не сходится как-то.
Хотя вроде работает.

[Mr.Qwerty]

if not(a=b)and not(b=c) and not(c=a) then x:='простым' Ну получается, что если все стороны разные, то есть а не равно б, б не равно ц, ц не равно а, то он простой) все просто)!

[Айдар]

это понятно, я про равнобедренный я говорю,
вот что получается
если (a=b)and (b=c) and (c=a) то равнобедренный - бред

[puporev]

это понятно, я про равнобедренный я говорю,

В коде программы написано:
если не равносторонний и не разносторонний, то это равнобедренный.

[cherr]

Если (a=b) and (b=c) and (a=c) - тогда треугольник равносторонний. Если not(a=b) and not(b=c) and not(c=a) - треугольник простой.
Если же треугольник не равносторонний (у него не равны все стороны), но и не простой (у него не все стороны различны) - остается один вариант, у него равны 2 стороны, следовательно он равнобедренный.