begin Write('Enter the length of side a: '); Readln(a); Write('Enter the length of side b: '); Readln(b); Write('Enter the length of side c: '); Readln(c);
if (a = b) or (a = c) or (b = c) then writeln('The triangle is isosceles.') else writeln('The triangle is not isosceles.');
program IsoscelesTriangle;
var
a, b, c: Integer;
begin
Write('Enter the length of side a: ');
Readln(a);
Write('Enter the length of side b: ');
Readln(b);
Write('Enter the length of side c: ');
Readln(c);
if (a = b) or (a = c) or (b = c) then
writeln('The triangle is isosceles.')
else
writeln('The triangle is not isosceles.');
end.