Create task4b.pas