C) Блоктар палитрасы деген не?

блоктар палитарсынын 10 тури бар блоктар деп мына суретте жазылып турган кылкалам және т.б. олоар ар турли тусте болады сол ушин блоктар палитрасы дейді кішкене болсада комектести деген ойдамын суретке карасанда бари тусиникти болады деген ойдамын бирак озмиз барынша коп окып талпыну кажет

var a: integer;

begin readln(a); if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число') else writeln('периметр не двузначное число'); end.

var a: array[1..100] of integer; i,s,n,m: integer; begin randomize; read(n,m); for i : = 1 to 100 do begin a[i]: =random(m-n) +n; if (i mod 2 =0) and (a[i] mod 2 = 0) then s: =s+1; end; writeln(s); end.