Подскажите пожалуйста: программа на языке паскаль определите какая из трех сторон треугольника больше всех

Большое спасибо

Program abc;var a,b,c:integer;beginwriteln('Введите первую сторону');read(a);writeln('Введите вторую сторону');read(b);writeln('Введите третью сторону');if (a>b) and (a>c) then write(a);if (b>a) and (b>c) then write(b);if (c>a) and (c>b) then write(c);if (a=b) or (a=c) or (c=b) then write('Есть равные стороны и нет большей')end.