Ответ 1, П310, т.к. после всех перемещений маятник будет в точке -50 гр
Возможно, стоит какой-то плагин (в оригинальной игре если, не DST). Отключите его.
//PacsalABC.Net
// (c) NaaMan
var
s : integer;
begin
write('Введите число (10-999): ');
readln(s);
writeln('В числе ', s, ' ', s.ToString.Length, ' знака');
write('Число ', s);
if s mod 3 = 0 then
write(' кратно')
else
write(' не кратно');
writeln(' трём')
end.
Честно говоря пути короче чем A-C-D я не вижу.
Собственно получается, что Ответ: 6