Ответы и объяснения

2014-02-24T18:20:37+04:00
Var a,b,c:integer;
begin
readln(a,b,c);
if (a<b) and (a<c) then
writeln('Выиграл первый спортсмен со временем ',a);
if (b<a) and (b<c) then
writeln('Выиграл первый спортсмен со временем ',b);
if (c<a) and (c<b) then
writeln('Выиграл первый спортсмен со временем ',c);
end.