(x>0) and (x<5) это будет на языке паскаль
Мультфильм про самых лучших мам или учительниц:*
===== PascalABC.NET =====
function sogl(c: char) :=
not (c.ToUpper in ('АЕЁИОУЫЭЮЯ'));
// проверка функции
begin
var s := 'ТестируемРусскийАлфавит';
foreach var c in s do
Print(sogl(c));
end.
На самом деле все это будет правильно работать лишь если функции давать исключительно русские буквы.
Потому что у каждого файла свой объём информации например один файл может весить 2 гигабайта (презентация) а например другой файл может весить меньше гигобайта (аудиозапись)