1)а(название не может начинаться с цифры иди спецсимволов)
2)в(присваивание := )
3)г(если, то, иначе)
4)а
5) а,в
6)а
7)а
Первая проверка a < b = 100< 12 - нет, уходим по стрелке справа
Вторая проверка b<c = 12 < 100 - да, уходим по стрелке слева
d:=b то есть d:= 12
вывод d = 12
Ответ: 12.
Var a:longint;
b: array[1..6] of integer;
i:integer;
begin
readln(a);
for i:=6 downto 1 do
begin
b[i]:=a mod 10;
a:=a div 10;
end;
{вывод массива}
for i:=1 to 6 do
writeln(b[i]);
end.
5 байт, 2 бита или 42 бита (как удобно)
Как я посчитал 8,388...... Вобщем около 8,4 мб (но это не точно)