Праграмисты спасайте

Program KBUtoK;
var kvutok,cina:integer;
begin
writeln('KoBeL');
readln(Kvutok);
case Kvutok of
1 :cina:=22
2 :cina:=32
3 :cina:=11
4 :cina:=14
22 :cina:=8 else write('edim');
end;
end.

пачему неработайт)