Составить программу определяющую, правда ли, что треугольник со сторонами а, в, с является равнобедренным, и выдающую на экран соответствующее сообщение — Pascal(Паскаль)

Uses crt;
var a,b,c:integer;
begin
CLRSCR;
Write('Vvedite a');
Readln(a);
Write('Vvedite b');
Readln(b);
Write('Vvedite c');
Readln(c);
If (a=b) or (a=c) or (b=c) then Write('Treugolnik ravnobedrenii')
else write('Treugolnik ne ravnobedrenii');
Readkey;
end.