помогите в решение задачи в Pascal

Question

Выбивает ошибку в программе Eror 85 ";" 
program Laba2_2; 
var number, L:integer; 
Begin 
write ('BBeDuTe HoMeP '); 
Readln (number); 
write ('BBeDuTe DJIuHy '); 
Readln (l); 
case number of 
1: write (l/10:0:2, 'MeTPoB'); 
2: write (L*1000, 'MeTPoB'); 
3: write (L, 'MeTPoB'); 
4: write (L/1000, 'MeTPoB'); 
5: write (L/100, 'MeTPoB'); 
else write ('He E TaKoro HoMePa') 
End. (вот тут ошибка)

inflex_2 · Accepted Answer

program Laba2_2; 
var number, L:integer; 
Begin 
write ('BBeDuTe HoMeP '); 
Readln (number); 
write ('BBeDuTe DJIuHy '); 
Readln (l); 
case number of 
1: write (l/10:0:2, 'MeTPoB'); 
2: write (L*1000, 'MeTPoB'); 
3: write (L, 'MeTPoB'); 
4: write (L/1000, 'MeTPoB'); 
5: write (L/100, 'MeTPoB'); 
else write ('He E TaKoro HoMePa') 
End; 
end. 
case имеет собственный end

sergey_bison · Answer

end case забыл 
Должно быть 
end case 
End.

Помогите в решение задачи в Pascal