Один совет могу дать!!!!
Задача пустячная все что тебе нужно сделать это выучить синтаксис твоего бейзика знать что да как в нем .
А что на счет задачи нужно 4 * 12 =48км/ч
Цвет капюшона могут определить те два гнома, что в синем. потому что им известно, что всего красных капюшона 3. и перед собой они видят трех гномов в красных капюшонах->на них самих не красные капюшоны->синие.
Как раз недавно для себя нашла эту информацию...
Program Turbo;
uses CRT;
Var
N,S:integer;
Begin
S:=0;
Write('N = ');
ReadLn(N);
For N:= 1 to N do
S:=S+N;
if S=N*(N+1)/2 then WriteLn('Тождество верно (',S,'=',S,')')
else WriteLn('Тожедство ложно','(',S,'<>',N*(N+1)/2,')')
End.