Выбратьлучший результат.
uses crt-
vara,b,c,high:integer-
begin-
clrscr-
writeln(‘Введите результаты по плаванию для трехспортсменов через Enter’)-
readln(a)-
readln(b)-
readln(c)-
IF (a >- b) AND(a >- c) THEN high := a-
IF (b >- a) AND(b >- c) THEN high := b-
IF (c >- a) AND(c >- b) THEN high := c-
writeln(‘Наивысший результат ‘,high)-
end.