2.Ввести с клавиатуры число полос и построить фигуру, залив все области разным цветом

3.Ввести с клавиатуры число полос и построить фигуру, залив все области разным цветом.

4.Ввести с клавиатуры число полос и построить фигуру, залив все области разным цветом.

Не совсем если честно понятно было но вот:
uses crt;
var y :real;     
S,price1,price2,price3:integer;     
x1,x2,x3:integer;     
k,i:real;
begin       
x1 := 1; x2:= 2; x3 := 3;
writeln('Среднее арифм. x1,x2,x3 = ', (x1/x2/x3)/3);
k := 15.24; k := k - 1/2;
writeln('Уменьшили значение  k 15.24 на 1/2');       
i := 15.24; i := i + 1/2;
writeln('Увеличили значение  i 15.24 на 1/2');               
price1:=150; // 1 галстук.       
price2:=250; // 1 блузка       
price3 := 550; // 1 брюки               
writeln('Пять брюк будут стоить: ', price3*5);       
writeln('Пять галстуков будут стоить: ', price1*5);       
writeln('Пять блузок будут стоить: ', price2*5);                       
{             
ответы на вопросы:              
a) 1 - раздел модулей, 2 - раздел объявления типов и переменных, 3 - тело программы.             
б) 1200 - целое число, тип integer, 1200.78 - вещественный тип real       
}       
 end.

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
  a: array of integer;
  i, n, m: integer;
function simple(x:integer): boolean;
var
  i: integer;
begin
  Simple := false;
  if x < 2 then exit;
  if x mod 2 = 0 then exit;
  i := 3;
  while i <= sqrt(x) do
  begin
    if x mod i = 0 then exit;
    i +=2;
  end;
  Simple := true;
end;

begin
  write('Количество элементов массива :');readln(m);
  SetLength(a, m);
  while n <= m - 1 do
  begin
    if simple(i) then begin
      a[n] := i;
      n +=1;
    end;
    i +=1;
  end;
a.println;  
end.

Тестовое решение:
Количество элементов массива :25
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97