Unicode и uri это правельный ответ
Program z1;
Var c,i:integer;
Begin
Read (n,i);
If not(c=2) then
For i to 0 do
begin
c:=c+1;
i:=i-2;
end;
writeln(n);
end.
Для записи результата одного спортсмена требуется log(2)117 ≈ 7 бит (2^7 = 128). Объем информации о результатах 60 спортсменов = 60*7 = 420 бит.
If - если
Then - то
Else - иначе
Например:
C:= A - B;
(Если С больше нуля то)
If C > 0 then begin
(Вывод о том что)
Writeln(число положительное);
...
(Иначе оно)
End esle
(Может быть только отрицательным)
Writeln(число отрицательное);
...
Это же можно проделать с двумя if(если)
If C > 0 then begin
Writeln(число положительное);
...
(Если С меньше нуля)
If C < 0 then begin
Writeln(число отрицательное);
...
Картинка во вложении. Сначала рисуем по красным стрелкам, потом - по синим. Или наоборот.