KWALIFIKACJA EE8 + EE9 - CZERWIEC 2006

var t:integer; 
 
begin 
write('Podaj rok '); 
readln(x); 
t:=x div 1000; 
case t of 
1:write('M'); 
2:write('MM'); 
3:write('MMM'); 
end;