Скажіть що в пісні ой не ходи грицю рухати сюжет

Program rrr; var a,b,c,k: integer; begin readln (a,b,c); if (a> b) and (a> c) then k: =a; if (b> a) and (b> c) then k: =b; if (c> a) and (c> b) then k: =c; writeln (k); end. я делала так, но хз что делать если числа будут равны