uses crt-

vara,b,c,high:integer-

begin-

clrscr-

writeln(‘Введите результаты по плаванию для трехспортсменов через Enter’)-

readln(a)-

readln(b)-

readln(c)-

IF (a &gt- b) AND(a &gt- c) THEN high := a-

IF (b &gt- a) AND(b &gt- c) THEN high := b-

IF (c &gt- a) AND(c &gt- b) THEN high := c-

writeln(‘Наивысший результат ‘,high)-

end.