===== PascalABC.NET =====
function nF(n: integer) := Range(1, n).Product;
begin
SeqGen(5, i -> nF(i), 1).Sum.Println
end.
Ответ 4, .к. А-4 В-2 С-2 D-1
X = int(input())
y = int(input())
p = int(input())
p = <span> float (100 + p) / 100
</span>y = y + x * 100
<span>y = y * p
</span><span>x = int (y // 100)
</span><span>y = int (y % 100)
</span><span>print (x, y) </span>
Если 2 цифры, значит оно двузначное
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := ReadReal;
if x < 10 then Print('Число меньше 10')
else
if x = 10 then Print('Число равно 10')
else Print('Число больше 10')
end.