uses crt;
var
s1,s2:string;
i,k:integer;
begin
clrscr;
writeln('Vvedite pervoye slovo');readln(s1);
writeln('Vvedite vtoroye slovo');readln(s2);
k:=0;
for i:=1 to length(s2) do
if s1[1]=s2[i] then inc(k);
writeln('Pervaya bukva pervogo slova vstrech vo vtorom slove ',k,' raz');
readln
end.