Var
a: array [1..5] of integer;
i: byte;
k: integer := Integer.MaxValue;
begin
for i := 1 to 5 do
readln(a[i]);
for i := 1 to 5 do
k := Min(k, a[i]);
writeln(k);
<span>end.</span>
Ну тут обычная программка с циклом, можно просто в лоб посмотреть, чтобы легче понять.
Нам дано, что s = 0, k = 1
Дальше цикл, пока s не станет больше или равен 66, он будет работать
А цикл делает следующее
Каждый раз прибавляет 3 к k и прибавляет это число k к s, чтобы получить заветные 66, а теперь рассмотрим в лоб, какие числа крутятся в программе:
Начало: 1,0 - 4,4 - 7,11 - 10, 21 - 13, 34 - 16, 50 - 19 - 69. Стоп цикла, так как число S стало больше 66 (69)
Дальше программа выводит на экран число k(19)
Ответ: 19.
Program qq;;
var S:array[1..8] of integer;
i, SA, sum, k:integer;
begin
for i:=1 to N do readln(S[i]);
sum=0; k:=0; SA:=0;
for i:=0 to 8 do begin
sum:=sum+A[i];
k:=k+1;
end;
SA:=s/k;
if (S[i]>SA) then writeln(S[i]);
<span>end.</span>