Ответ:

uses crt; {подключаем библиотеку CRT}

var

myCheckbox: Boolean;

begin

clrscr; {очищаем экран}

writeln('Отметьте флажок:');

write(' [ ] '); {показываем пустой флажок}

readln(myCheckbox); {читаем значение флажка}

if myCheckbox then

writeln('Флажок отмечен')

else

writeln('Флажок не отмечен');

readln; {ждем нажатия клавиши перед завершением}

end.

Объяснение: