Находит максимум среди 5 введенных целых чисел и выводит его.
Для записи результата одного спортсмена требуется log(2)12≈4 бита (2^4=16). Объем информации о финише 2/3 спортсменов = 4*12*2/3 = 32 бита = 4 байта.
Конечность алгоритма - его дискретность, т.е. выполняя алгоритм исполнитель не зациклится и достигнет какого-то результата.
Var k,x:integer;
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.