Create task4a.pas