Является ли треугольник равнобедренным?Даны три числа-стороны треугольника.Написать программку на языке Паскаль

Program treug;
var
a,b,c:integer;
begin
writeln(Введите длину стороны a); Вывод на экран извещения
readln(a); Считывание числа а
writeln(Введите длину стороны b); Вывод на экран извещения
readln(b); Считывание числа b
writeln(Введите длину стороны c); Вывод на экран известья
readln(c); Считывание числа c
if (a=b) or (a=c) or (b=c) then writeln(Треугольник равнобедренный) Если условие производится - вывести известье
else writeln(Треугольник не равнобедренный);
end.