Дан текст на языке. найти количество гласных букв (pascal abc)

Program gt; var a: string; k,l,i: integer; begin readln(a); //сначала переведем вес текст в нижний регистр l: =length(a); k: =0; for i: =1 to l do begin if(ord(a[i])> 64)and(ord(a[i])< 91)then a[i]: =chr(ord(a[i])+32); if(a[i]='а')or(a[i]='у')or or(a[i]='е')then k: =k+1; //здесь вместо точек пиши как ////предедушие но с гласными(другими) буквами end; writeln(k); end.

1. информацию в бытовом смысле чаще всего понимают как: а. всевозможные сведения, сообщения, знания; 2. самую высокую информационную нагрузку несет канал: г. зрения; 3. для восприятия информации человек использует:   в. все каналы; 4. примером числовой информации может служить: б. цены на товарах; г. таблица умножения; 5. носителем текстовой информации является… а. книга, написанная на любом языке; 6. информация по способу ее восприятия человеком подразделяется на: д. зрительную, слуховую, тактильную, обонятельную, вкусовую, мышечную, вестибулярную. 7. информация по форме представления подразделяется на: а. текстовую, числовую, графическую, музыкальную, комбинированную;

  таким образом 255 представляет собой 8 единиц в двоичной записи. , соответственно 192 представляет собой 2 единицы и нули в двоичной записи. тогда целая маска выглядит как . в маске есть только 6 нулей, которые соответствуют внутреннему адресу компьютера. 6 битами можно закодировать компьютера, таким образом эта маска допускает 64 адреса. но так как 2 адреса заняты (адресом сети и широковещательным), то для подсети остается только 62 адреса. поясню, как это скорее всего работает: пусть a = 255.255.255.192. пусть какой-то пакет информации поступил на адрес b, первые 26 бит которого соответствуют адресу сети c. это можно проверить результатом операции a ^ b = c ^ a. далее этот пакет следует перенаправить на какой-то компьютер подсети. его адрес узнаем операцией (not a) ^ b. но это лишь то, как я себе представил, могу ошибаться.