РЕБЯТ, ПОМОГИ ТЕ ПОЖАЛУЙСТА С ИНФОРМАТИКОЙ, ТУТ ЛЕГКО,НУЖНО ПОСЧИТАТЬ, НО Ч НЕ ОЧЕНЬ РАЗБИРАЮСЬ В ЭТОМ

var s,n:integer;

begin

s:=0;

n:=0;

while s<65 do begin

s:=s+6;

n:=n+2;

end;

writeln(n);

end.

Ответ: 22.

P.s скопируй в паскаль и сам проверь