1)
Faci un string si folosesti functia "length(x)"
exemplu
uses crt;
var x:string;
begin
readln(x);
writeln(length(x));
end.
2)
var consoane, vocale, lungime, i:integer;
sir:string;
begin
readln(sir);
consoane:=0; vocale:=0;
lungime:=length(sir);
for i:=1 to lungime do
if pos(sir[i], 'aeiouAEIOU') > 0 then
inc(vocale)
else if (sir[i] in ['A'.'Z', 'a'.'z']) then
inc(consoane);
writeln('vocale: ', vocale);
writeln('consoane: ', consoane);
readln;
end.
