Составьте таблицу для вычисления площади квадратов A, B, D, соответствующих заданными значениями a, b, d. Отсортируйте значения в порядке их возрастания

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.

Перфокарты впервые начали применяться в ткацких станках Жаккарда  (1808) для управления узорами на тканях. В информатике перфокарты впервые были применены в «аналитической машине» Бэббиджа и в «интеллектуальных машинах» коллежского советника С. Н. Корсакова (1832), механических устройствах для информационного поиска и классификации записей[1]. В конце XIX в. началось использование перфокарт для обработки результатов переписей населения в США (см. табулятор Холлерита).

Бухгалтерские машины (табуляторы) и позднее компьютеры первого поколения, в 1920-х—1950-х годах, использовали перфокарты в качестве основного носителя при хранении и обработке данных. Затем, в течение 1970-х — начале 1980-х годов, они использовались только для хранения данных и постепенно были замещены магнитными лентами. В настоящее время перфокарты не используются нигде, кроме устаревших систем, однако оставили свой след в компьютерной технике: отображаемый по умолчанию текстовый видеорежим дисплеев подавляющего большинства компьютерных устройств содержит по горизонтали 80 знакомест, ровно столько, сколько их было на стандартной перфокарте.

Главным преимуществом перфокарт было удобство манипуляции данными — в любом месте колоды можно было добавить карты, удалить, заменить одни карты другими (то есть фактически выполнять многие функции, позже реализованные в интерактивных текстовых редакторах).

В 2011 году в США всё ещё существовала компания Cardamation, поставлявшая перфокарты и устройства для работы с перфокартами[2]. Об использовании перфокарт в современных организациях сообщалось в 1999[3] и 2012 годах[4].