20. Na vstupe je rad znakov ukončený bodkou (veta)
program vety;
uses crt;
var veta:string;
i: integer;
begin
clrscr;
writeln('Zadaj vetu : ');
readln(veta);
writeln('Veta vyzera takto : ',veta);
writeln('Veta je dlha : ',( length(veta)-1));
for i := 1 to Length(veta) do
begin
if (ord(veta[i])>= 65) and (ord(veta[i]) ='5'then inc (dievcata)else inc (chlapci);

end;
writeln ('chlapcov je: ',chlapci);
writeln ('dievcat je: ',dievcata);
write ('hladany mesiac');
readln (hladMesiac);
for i:=1 to pocetziakov do begin
val(copy(trieda[i].rodnecislo,3,2),mesiac,Chyba);
if Chyba=0 then begin
if mesiac>50 then mesiac := mesiac - 50;
if mesiac = hladMesiac then
writeln('Meno: ',trieda[i].meno,' Priezvisko: ',trieda[i].priezvisko,' Rodne cislo: ',trieda[i].rodnecislo);
end;
end;
readkey;
end.