VADIK_5

uses crt;
const
K=2;
L=7;
M=20;
N=10;
AA=Ord('A'); {Kod bukvy A v tablice simvolov}
ZZ=Ord('Z'); {Kod bukvy Z v tablice simvolov}
gl=['A','E','I','O','U','Y'];
sgl=['B','C','D','F','G','H','J','K','L','M','N','P','Q','R','S','T','V','W','X','Z'];
var
mas: array [1..M,1..N] of string[L];
i,j,t,p,q, {shetchiki ciklov}
len, {dlina tekushey stroki (K..L)}
ss,kg,ks, {kolichestvo: bukv v stolbce, glasnyh, soglasnyh}
kol: byte; {slov udovletvor uslovyu}
begin
clrscr;
randomize; {beporydochno}
for i:=1 to M do
for j:=1 to N do
begin
len:=random(L-K+1)+K;
mas[i,j]:=''; {pustaya stroka}
for t:=1 to len do {dobalyem po LEN symvolu}
mas[i,j]:=mas[i,j]+Char(random(ZZ-AA+1)+AA); {ot A do Z}
end;
TextColor(0); {cvet teksta}
kol:=0; {poka ne nashli podhodyshego slova}
for j:=1 to N do {idem po stolbcam}
begin
ss:=0;
for i:=1 to M do {shitaem bukvy v stolbcah}
ss:=ss+length(mas[i,j]);
if ss mod 4=0 then {esli nechetnoe kolichestvo bukv}
for p:=1 to M do {snova po etomu stolbcu}
begin
kg:=0;ks:=0;
for q:=1 to length(mas[p,j]) do {smotrim kazhdoe slovo}
begin
if mas[p,j][q] in gl then kg:=kg+1; {shitaem glasnye}
if mas[p,j][q] in sgl then ks:=ks+1; {shitaem soglasnye}
end;
if (ks=1) or (ks=4) then {elsi glasnyh hotya by 2 i 3 soglasnyh}
begin
TextColor(red); {menyem cvet na krasy}
write(mas[p,j]:8); {vyvodim krasnym}
kol:=kol+1; {shitaem kolichestvo}
TextColor(15); {cvet po umolchaniu}
end
else write(mas[p,j]:8); {vyvodim obychnye slova v etom stolbce}
end
else
for i:=1 to M do
write(mas[i,j]:8); {vyvodim obychnye stolbcy gde summa bukv nechentaya}
end;
window(50,23,78,25); {novoe okno}
TextBackGround(14); {cvet fona}
TextColor(15); {cvet teksta}
readln;
clrscr;
write('Kolichestvo slov=',kol); {vyvodim v otdelnom okne}
readln
end.