Блоксхема, паскаль.

[fermerius]

Ребят, помогите пожалуйста блок-схему к задаче составить. Задача очь простая. Ввести стороны треугольника, в случае если треугольник с такими стороноами сущетсвует, показать среднюю. (среднюю в смысле по величине.)

program lab_darbs_2;
uses crt;

var
a,b,c:integer;
label label1;

begin
clrscr;

writeln('1 storona);
readln(a);
writeln('2 storona');
readln(b);
writeln('3 storona');
readln(c);


if ( ((b+c) >= a) and ((a+c) >= b) and ((a+b) >= c)) then
    writeln('sushestvuet')
  else
  begin
   writeln('ne sushestvuet');
    goto label1;
    end;


write('srednjaja storona ');
if a in [b..c]
 then write(a)
 else
    if b in [a..c]
      then write(b)
      else
        write(c);

  label1: readln;
end.

А как быть с блок-схемой ? Ну первое понятно овал "Начало", стрелка, параллелограм "ввод даных a,b,c", далее ромб "a < b + c; b < c + a; c < a + b;" а вот как дальше, не разберусь...в случае выполнения неравенста надо показать среднюю сторону, как этот процесс обозначить ? В случае невыполнения, тут ясно в конец сразу. Как быть со средней стороной ? Спасибо заранее.

[Deamonig]

овал-начало, стрелка, параллелограм "ввод даных a,b,c", далее ромб "a < b + c; b < c + a; c < a + b;", от ромба 2 линии: 1-я линия в конец программы, 2-я линия к: неровному четырехугольнику(блок вывода данных, в нем ты пишешь что треугольник существует), далее от этого блока к следующему ромбу "a in [b..c]", от него 2 стрелки: 1-я к блоку вывода данных (вывод а, затем стрелка к выходу из программы), 2-я к еще 1-му ромбу " if b in [a..c]", от него тоже 2 стрелки: 1-я к выводу данных B, и затем к выходу из программы, а 2-я к выводу данных С, и затем к концу программы. Вот так вот
Блок вывода данных четырехугольник с сторонами например (3,6,2,6)

[ОДИНОЧЕСТВО В СЕТИ]

Вот! перерисуйте только !

[fermerius]

Спасибо огромное всем =)

ОДИНОЧЕСТВО В СЕТИ, а почему надписи зачеренкнуты все ? )