Помогите пожалуйста… написать программу в паскале

Var a: integer; b: string; Begin Write ('Сколько у вас корзин? '); readln (a); case a of 1: b: ='корзина'; 2… 4: b: ='корзины'; 5… 10: b: ='корзин' end; Writeln (a,',b); end.