На этой картинке из деревенской жизни изображено много различных предметов. вспомни и запиши как можно больше пословиц и поговорок , в которых встречаются названия этих предметов

В веди картинку и я

CLS
FOR i = 101 TO 999 STEP 2
   p = 1: j = 3
   DO WHILE (j <= SQR(i)) AND (p <> 0)
      p = ((i MOD j) <> 0)
      j = j + 2
   LOOP
   IF p <> 0 THEN PRINT i;
NEXT i
END

Результат выполнения программы:
 101  103  107  109  113  127  131  137  139  149  151  157  163  167  173  179
 181  191  193  197  199  211  223  227  229  233  239  241  251  257  263  269
 271  277  281  283  293  307  311  313  317  331  337  347  349  353  359  367
 373  379  383  389  397  401  409  419  421  431  433  439  443  449  457  461
 463  467  479  487  491  499  503  509  521  523  541  547  557  563  569  571
 577  587  593  599  601  607  613  617  619  631  641  643  647  653  659  661
 673  677  683  691  701  709  719  727  733  739  743  751  757  761  769  773
 787  797  809  811  821  823  827  829  839  853  857  859  863  877  881  883
 887  907  911  919  929  937  941  947  953  967  971  977  983  991  997

Массив вводится с клавиатуры через пробел 15 элементов
var
a:array[1..15]of integer;
i,j,buf:integer;
begin
    for i:=1 to 15 do
        read(a[i]);
     for i:=1 to 14 do
         for j:=i+1 to 15 do
                if (a[i]<>0)and(a[j]<>0) then
                   if a[i]>a[j]then
                      begin
                             buf:=a[i];
                             a[i]:=a[j];
                             a[j]:=buf;
                      end;
writeln;
   for i:=1 to 15 do
       write(a[i]:4);
end.