sum: =0;
for i: =21 to 99 do inc(sum,i*ord((i mod 3)=0)*ord((i mod 10) in [2,4,;
ну знаю как вы решаете, но вот
sum: =0;
for i: =21 to 99 do inc(sum,i*ord((i mod 3)=0)*ord((i mod 10) in [2,4,;
ну знаю как вы решаете, но вот