Соотнесите модель и тип модели, запишите цифру и букву. Модель
1) Муляж яблока
2) прогноз погоды на завтра
3) модель вечного двигателя
4) Теорема Пифагора
5) модель ядерного взрыва
6) соединение химических элементов, как модель извержения вулкана
7) изучение изменения температуры за 1 месяц
8) расписание поездов
9) карта местности
10) Стратегическая игра
11) Описание преступника
12) фоторобот преступника
13) тестирующая программа

Тип модели
a) игровые
b) математические
c) научно-технические
d) статические
e) вербальные
f) табличные
g) учебные
h) имитационные
i) опытные
j) динамические
k) материальные
l) знаковые
m) графические

Информация, выводимая любой программой должна быть легко читаемой, понятной для пользователя. Для этого, в частности, нужно, чтобы действительные числа были выведены в алгебраической форме, как число с точкой, а также в записях содержались пробелы, отделяющие числа от текста и др. Для этого в языках программирования используются форматы вывода. 
При использовании форматов для вывода значений в текстовые файлы или на экран около имени, выводимого данного явно указывается размер поля для размещения его значения (после знака :), в виде переменная:ширина поля.
Источник : http://physic.kemsu.ru/pub/library/learn_pos/Free_Pascal/Free%20Pascal/soder/3_1_2.htm

Const 
n=5;

Var
 ar:array[1..n] of integer;
 ar2:array[1..n] of integer;
 i,k:integer;

 function prost(a:integer):boolean;
 var i:integer;
 b:boolean;
  begin
  b:=true;
   for i:=2 to a div 2 do
    if a mod i=0 then
     begin;
      b:=false;
      break;
     end;
   if a=1 then b:=false;
  prost:=b;
 end;

  begin;
 randomize;
 k:=0;
  for i:=1 to n do
   begin;
    ar[i]:=random(101);
    write(ar[i]:4);
   end;
  writeln;
  for i:=1 to n do
  if prost(ar[i]) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
    write(ar2[k]:4);
   end;
end.