Даны стороны треугольника а,в,с, . определите , является ли треугольник равнобедренным ? сотавьте блок -схему сильно надо буду

Если я тебя правильно понял, то вот:
Program Znanija;
var a,b,c:integer;
begin
Writeln('Введите длину AB');
Readln(c);
Writeln('Введите длину BC');
Readln(b);
Writeln('Введите длину AC');
Readln(a);If c=b then writeln('Треугольник ABC - равнобедренный')else writeln('Треугольник ABC - не равнобедренный')
end.