Срочео ! 1) известны результаты трех участников по прыжкам в длину. определить результат победителя.2) известны результаты забега на 100 (м) трех участников соревнований. определить результат победителя. (языком паскаля)

А) var a,b,c:real;
begin
readln(a);
readln(b);
readln(c);
if (a>b) and (a>c) then writeln('Победил 1! Результат: ',a);
if (b>a) and (b>c) then writeln('Победил 2! Результат: ',b);
if (c>b) and (c>b) then writeln('Победил 3! Результат: ',c);
end.