Const n=4;
type Tmas=array[1..n] of string;
var s:Tmas; i:integer;
function calc(m :Tmas):integer;
var k,i,j:integer;
begin
k:=0;
for i:=1 to n do
for j:=1 to length(m[i]) do
if m[i][j] in ['a'..'z'] then k:=k+1;
calc:=k;
end;
begin
for i:=1 to n do readln(s[i]);
writeln('Количество маленьких латинских букв = ',calc(s));
end.
Пример:
Program p1;
Begin
Writeln(2+3);
End.
Количество маленьких латинских букв = 19