Все лабораторные работы по паскалю / 2 лаб. Структурные операторы / Program9

program prog09;
uses crt;
var k,p: byte;
    r: real;
 begin
 clrscr;
 write('Введите количество предметов в покупке - ');
 readln(k);
 case k of
   0,1:   p:=0;
   2:     p:=1;
   3:     p:=2;
   4,5:   p:=3;
   else   p:=5;
 end;
  writeln('Ваша скидка - ',p,'%.');
  readln;
end.