Глеб любитель стрелять из рогатки.7 раз попадал в полицию. n-число попаданий в полицию.определить результат n=4,6,7-полиция возмещала ущерб(разбитое стекло) n=2,5,4-ущерб возмещал папа глеба n=1,3-стекло не разбилось

Var n: integer;
begin
write('Введите N <= 7 - число попаданий в полицию: ');
readln(n);
case n of
6,7:    writeln('Полиция возмещала ущерб(разбитое стекло)');
2,4,5: writeln('Ущерб возмещал папа Глеба');
1,3:    writeln('Стекло не разбилось');
end;
end.