Створити базу даних комп’ютерної техніки, використовуючи мережу Інтернет, сайти фірм-виробників, відповідно до зазначених умов експлуатації (ключові
параметри: ціновий діапазон, завдання на виконання, існуюча мережа, брендовий
товар тощо) та зробити відповідні запити з розрахунковими полями, кнопкову
форму. Створити загальний звіт. Здійснити експорт таблиці Виробники та
Замовлення в ЕТ та доповнити таблицю 4-ма записами. Підрахувати кількість
замовлень та побудувати графік.

Объяснение:

Дело в том что qt не является отдельным языком программирования. Это фреймворк, а как мы знаем фреймворки призваны облегчить процесс написания кода путём внедрения различного функционала и повышения читабельности кода, следовательно и код написанный с фреймворка будет несколько отличаться от того же самого кода на "ванильной" версии языка. Если вы хотите подробнее ознакомиться с qt, я бы посоветовал вам почитать документацию фреймворка на официальном сайте doc.qt.io или же если вы не понимаете английский язык, можно почитать русскую версию документации на сайте http://doc.crossplatform.ru/qt/4.8.x/html-qt/

Так же для ознакомления могут подойти различные обучающие видео на YouTube.

Код программы:

procedure print(a, b:integer);

var i:integer;

begin

 for i:=1 to 7 do

   write('*');

 writeln();

  for i:=1 to 19 do

   write('*');

  writeln();

  for i:=1 to a do

   write('*');

   writeln();

  for i:=1 to b do

   write('*');

end;  

var a,b:integer;

begin

 writeln('Введите количество символов на 3 уровне(<80): ');

 readln(a);

 writeln('Введите количество символов на 4 уровне(<80): ');

 readln(b);

 if (a < 80) and (b < 80) then

     print(a,b)

 else

   writeln('Ошибка! Количество символов >= 80');

end.