El triangulito, vithe. Ver 0.2

program triangulo;
var
   a, b,c:real;
   t:integer;
begin
     writeln ('ingrese el primer lado');
     readln (a);
     writeln ('ingrese el segundo lado');
     readln (b);
     writeln ('ingrese el tercer lado');
     readln (c);
if (a = b) and (b = c) then
    writeln('equilatero');
if ((a = b) and (b <> c)) or ((c = a) and (b <> a)) then
    write('isoceles');
if (a <> b) and (b <> c) then
    write('escaleno');

     readln (t)
end.