task6.pas