Код программы:
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.
Объяснение:
Дело в том что qt не является отдельным языком программирования. Это фреймворк, а как мы знаем фреймворки призваны облегчить процесс написания кода путём внедрения различного функционала и повышения читабельности кода, следовательно и код написанный с фреймворка будет несколько отличаться от того же самого кода на "ванильной" версии языка. Если вы хотите подробнее ознакомиться с qt, я бы посоветовал вам почитать документацию фреймворка на официальном сайте doc.qt.io или же если вы не понимаете английский язык, можно почитать русскую версию документации на сайте http://doc.crossplatform.ru/qt/4.8.x/html-qt/
Так же для ознакомления могут подойти различные обучающие видео на YouTube.