//Pascal ABC.NET Версия 2.2 Сборка 790
var s,s1,s2:string;
begin;
while s<>'.' do
begin;
readln(s);
s1:=s1+s;
end;
s2:=chr(39); //chr(39)='
if (pos('O',s1)<>0) and (pos(s2,s1)<>0) and (pos('k',s1)<>0) then writeln('Yes') else writeln('No');
<span>end.</span>
Var b,i,k,n: int64;
begin
readln(n);
b:=1;
for i := 1 to n do
b:=b*i;
writeln(b);
end.
Входные данные подставлять в переменную n
Так и будет колмес)Колмес это поворот колеса,которые осуществляется вручную,с помощью штифта.
1-А
2-Б
3-В
4-А
5-Б
6-А
7-А
8-Б
9-В
10-Б
11-Б
12-Б
13-В
14-Б
15-А
Если в число, то будет 154