Встановити послідовність етапів побудови інформаційної моделі. А) аналіз об'єкта:
Б) Опис завдання:
В)встановлення мети моделювання,
Г) створення комп'ютерної моделі.​

Однією з принципів роботи квантових комп'ютерів є складність квантового програмування. Квантове програмування є набором комп'ютерних мов програмування, які дозволяють запис квантового алгоритму з використанням конструкцій високого рівня. Завдання квантових мов не полягає у тому, щоб надати інструмент для програмістів, а в тому, щоб надати інструменти для дослідників, щоб зрозуміти краще, як працюють квантові обчислення і як формально доводити коректність квантових алгоритмів.
Можна виділити дві основні групи квантових мов програмування: імперативні квантові мови програмування і функціональні квантові мови програмування. Найбільш відомими представниками першої групи є QCL і LanQ.
Щоб працювати з квантовими комп'ютерами доведеться вивчити нові мови програмування. Також, щоб атом розумів що від нього хоче програміст, були розроблені кілька підходів. Наприклад MR створив імперативну мову квантового програмування QCL, а King і VST застосували для моделювання квантових ефектів на класичних комп'ютерах бібліотеки HASKELL. Також Пітер Селінгер запропонував функціональну мову квантового програмування QPL, в якому допускаються поєднувати класичний і квантовий інструкції.
Але квантовий комп’ютер не зможе замінити класичних комп’ютерів. Звісно квантові комп’ютери швидші, але це стосується тільки спеціальних типів обчислень де необхідно використовувати стани суперпозиції, які доступні одночасно. Якщо просто дивитися відео у високій роздільній здатності, сидіти в Інтернеті, працювати з документами, то ви не досягнете якоїсь більшої швидкості

Program Project1;

var m:array [0..14] of integer; i:integer;

function IsPositive(a:integer):boolean;
begin
  result:=(a>-1);
end;

procedure work;
var min, max, count:integer;
begin
  count:=0;
  min:=m[0];
  max:=0;
  for i:=0 to 14 do begin
    if IsPositive(m[i]) then begin
      inc(count);
      if m[i]>max then max:=m[i];
      if m[i]<min then min:=m[i];
    end;
  end;
  writeln('MAX: ', max);
  writeln('MIN: ', min);
  writeln('Count: ', count);
end;

begin
  for i:=0 to 14 do begin
    write('n: ');
    readln(m[i]);
  end;

  work;

  readln;
end.