РЕБЯТ ПОЖАЛУЙСТА ОЧЕНЬ Надобно! ВЗАМЕН МОГУ РЕШИТЬ ВАШУ Задачку! С клавиатуры

program abc;
uses crt;
var a,b,c:real;
begin
writeln('Введите первую сторону: ');
readln(a);
writeln('Введите вторую сторону: ');
readln(b);
writeln('Введите третью сторону: ');
readln(c);
if (a=b) and (b=c) then
writeln('Ваш Треугольник Равносторонний')
else
if (a=b) or (a=c) or (b=c) then
writeln('Ваш Треугольник Равнобедренный')
else
if (a+blt;c) or (a+clt;b) or (b+clt;a) then
writeln('Ваш Труегольник Не существует')
else writeln('Ваш Треугольник Разносторонний');
end.