Case Command (Pascal)

ìôðéê îáðä îåøçá ùì ääåøàä. äùúîù áå ìôúøåðåú
÷áò îä éåãôñ áëì äåøàä àí òøê äîùúðä äåà 7
case X of
1 : writeln('...');
2 : begin write('Type Number:'); readln(Y); end;
3,4,10..12 : writeln(2*X+9);
else
writeln('Not Correct!');
end;