Program z1; Var a,b:integer; Begin write('Введите 1-ое число - '); readln(a); write('Введите 2-ое число - '); readln(b); if (a>0) then writeln('Является') else if (b>0) then writeln('Является') else writeln('Не является');<span>End.</span>
3+3=6
6*4=24
24+3=27
27+3 = 30
30*4 = 120
Итого: 12112
Решая, шла от противного (120/4 и доходила до делимости на 4)