Составьте прогрмму,в которойв водится рост 3-их друзей и выводится самвй высокий....

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.

я делала так, но хз что делать если числа будут равны