task5.pas