Задание: "Дан текст. Определить количество согласных букв в нём"
Текст программыы:


подскажите, что можно улучшить/что сделано неправильно...

если работает, то в программе такого уровня ничего изменятьбольше не надо.
Все равно что оптимизировать сумматор a+b

Думаю вот так встаки можно немного сократить.

uses crt;
const
    sogl = ['a'..'я']-['у','е','ъ','ы','а','о','э','я','и','ь','ю'];
var
 s: string;
 cnt,i:integer;

begin
 ClrScr;
 cnt:=0;
 readln(s);
 for i:=1 to Length(s) do
 if s[i] in sogl  then inc(cnt);
 writeln(cnt);
 readln;
end.

klem4,

const
    sogl = ['a'..'я']-['у','е','ъ','ы','а','о','э','я','и','ь','ю'];

Не советовал бы тебе это делать.
['а' .. 'я'] - разорванное множество, т.е. кроме того, что ты указал, содержит еще посторонние символы, а это тебе ни к чему. В крайнем случае:

const
    sogl = ['a'..'п', 'р'..'я']-['у','е','ъ','ы','а','о','э','я','и','ь','ю'];

volvo если не трудно ответь мне на пару вопросов:
1) Что такое разорванное множество?
2) Какие посторонние символы оно содержит?
3) Чем отличается твой вариант от варианта klem4?

Fang, дело в следующем:
то множество, которое привел klem4 является "разорванным", т.е. между символами "а" и "я" есть НЕ ТОЛЬКО все буквы русского алфавита, а еще и 48 посторонних символов (ты можешь в этом убедиться, если обратишь внимание на то, что Ord('а') = 160, а Ord('я') = 239, и сколько по твоему строчных букв в русском языке? 239 - 160 = 79, неужели у нас такой большой алфавит?)

А "разрывается" это множество именно между символами 'п' и 'р', поэтому я и предложил то, что написано в посте №4.