20 лет. определяем методом подбора.. 14-14,15-5,16-,17-7,18-8,19-9,20-10
var a:integer;
var s1,s2:string;
begin
inc(a);
write('Vvedite slovo: ');
readln(s1);
repeat
s2:=s2+s1[a];
a:=a+2;
until(a>length(s1));
writeln(s2);
readln;
end.
Var
S:real;
n:integer;
Begin
S:=0;
Write('n = ');
ReadLn(n);
For n:= 1 to n do
S:=S+n/(n+1);
WriteLn('S = ',S)
End.
Program ryazantsev;
var str1, str2: string;
begin
readln(str1);
readln(str2);
if Pos('a', str1)=0 then writeln(str1);
if Pos('a', str2)=0 then writeln(str2);
end.