Const n=10;var a:array[1..n]of integer;i,k:integer;begink:=0;for i:=1 to n do begin read(a[i]);if ((a[i] mod 3=0) and (a[i] mod 5 >0)) then k:=k+1;end;write('таких чисел:',k);end.
Нет, слабоват для World of Tanks
Вот каникулы у дома, завтра будет хромосома, я упал, меня подняли, подлетел, меня сломали, я иду домой больной, больно, твари, уйди вон, баба Нюра у калитки , внук иди сюда, гавнинка, что ты сделал, с тёткой светкой, ты её побил, макеткой, нет бабуль, били меня, македонцы со двора