Задана следующая шкала эффективности внедрения технологий(%). 0-10 – невысокая; 11-25 – средняя; 26-50 – высокая; 51 – 100 – очень высокая; > 100 – революционная. Составить программу, которая по введенной эффективности выдает ее словесную характеристику.
Pascal ABC

var  p:integer;begin  Write('Укажите процент эффективности: '); Read(p);  case p of  0..10:Writeln('Невысокая');  11..25:Writeln('Средняя');  26..50:Writeln('Высокая');  51..100:Writeln('Очень высокая');  else Writeln('Революционная')  endend.