Паскаль

[Hallucinogin]

Помогите пожалуйста сделать блок-схему к задаче....

Составьте программу, которая определяла бы вид треугольника (если данные отрезки позволяют его построить).

program treugolnik;
uses crt;
var a,b,c: real;
begin
clrscr;
writeln (`введите длины отрезков`);
readln (a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a)
then writeln (`треугольник существует, определим вид`) else
writeln (`треугольник не существует);
if (a=b) or (b=c) or (a=c) then writeln (`треугольник равнобедренный`);
if (a=b) and (a=c) then writeln (`треугольник равносторонний);
if (a + b = c ) or (a + c = b) or (b + c = a ) then writeln (`треугольник прямоугольный`);
else writeln (`треугольник разносторонний`);
readln;
end.

[ROMA2PVT]

Добавьте только после начала блок описания переенных.
P.S: Правильность написания даже не проверял.Вы выложили => уверены что верно написали.

[Hallucinogin]

Спасибо большое)))