1.
var s1,s2: string;
n,i: byte;
begin
Write('Pervoe slovo : '); Readln(s1);
Write('Vtoroe slovo : '); Readln(s2);
n:=0;
for i:=1 to Length(s1) do
if s1[i]=s2[1] then Inc(n);
if n>0 then
Writeln('Da')
else
Writeln('Net');
Readln;
end.
2.
var s:string;
c:char;
i,n:integer;
begin
Write('Slovo : '); Readln(s);
repeat
Write('Glassnay ili probel-vihod : ');
Readln(c);
if c=' ' then break;
n:=0;
for i:=1 to Length(s) do
if s[i]=c then Inc(n);
Writeln(c,' = ',n);
until c=' ';
Readln;
end.