Что будет выведено на экран после выполнения следующих операторов, если с клавиатуры пользователь введет
число 3712?
. . .
Var a, b, c, d : Integer;
. . .
ReadLn(a);
b := a Mod 1000 Div 100;
c := a Div 10 Mod 10;
d := a Mod 10000 Div 100;
WriteLn(’в числе ’, a, ’ содержатся ’);
Write (b : 4);
Write (c : 4);
WriteLn(d : 4);

Выведется:

в числе 3712 содержатся  

  7   1  37

Пробелы:

Перед цифрой 7 будет 3 пробела, перед цифрой одни тоже 3 пробела, а перед числом 37 будет 2 пробела.