Доработайте функцию isprime так чтобы она возвращала значение нет false для всех чисел меньших чем 2. паскаль

есть три цифры 1,2,3 которые могут стоять на 4-х местах

например 1111 каждую цифру можно использовать повторно

значит всего получится 3*3*3*3=81 число

2^3 = 8 цветов (скорее всего оттенки серого)

1. а)11000110;

    б)11000001011;  

    в)1100000101,111;  

    г)2335,54;    

    д)3f5d0.

  2.а) 100000011;

      б)111110100;  

      в) 1000111001,1101;  

      г)1110111100000  

3.а) 10001111011100;  

4.а)   11000;     б) 70;     в)7е.

var a,b,c: integer;

begin

write('введите a = ' ); readln(a);

if a> =0 then a: =sqr(a) else a: =sqr(a*a);

write('введите b = ' ); readln(b);

if b> =0 then b: =sqr(b) else b: =sqr(b*b);

write('введите c = ' ); readln(c);

if c> =0 then c: =sqr(c) else c: =sqr(c*c);

writeln('a = ',a,' b = ',b,' c = ',c);

end.