uses PT4, PT4Demo;
begin
// для отображения окна задачника
// надо закомментировать вызов процедуры MakeText
MakeText('Demo');
Task('Demo7?');
end.