begin
clrscr;
writeln('------------------------------------------------------------------------');
writeln(' | | e=-2 | | e=-3 | | e=-4 | |');
writeln(' X | f1(x) | f2(x) | N | f2(x) | N | f2(x) | N |');
writeln('------------------------------------------------------------------------');
x:=-0.6;
h:=0.05;
qw:=0.01;
qe:=0.001;
qr:=0.0001;
for i:=1 to 20 do
begin
fun:=abs( sqr(1-sqr(x))*ln( (1+x)/(1-x) )+2*sqr( 1+sqr(x) )*arctan(x)-4*x )/32;
{ўлзЁб«пҐ¬ f1}
write(x:8:2,' | ',fun:4:6); {ўлў®¤Ё¬ १г«мв в f1 ў в Ў«Ёжг}
k:=0;
st:=x*x*x*x; {®ЇаҐ¤Ґ«пҐ¬ б⥯Ґ­м зЁб«ЁвҐ«п}
fun2:=0;
l:=0;
repeat
st:=st*x; {ўлзЁб«пҐ¬ зЁб«ЁвҐ«м}
s:=st/( (4*k+1)*(4*k+3)*(4*k+5) );
{­ е®¤Ё¬ §­ зҐ­ЁҐ дг­ЄжЁЁ f2}
inc(k); {㢥«ЁзЁў Ґ¬ k ­  Ґ¤Ё­Ёжг}
fun2:=fun2+s;
{ўлў®¤ १г«мв в  ў в Ў«Ёжг}
if (abs(s)<qw)and(l=0) then
begin {ўлў®¤Ё¬ ­  нЄа ­ Ґб«Ё в®з­®бвм 0.01}
write(' | ', fun2:9:6,' | ', k);
l:=1;
end;
if (abs(s)<qe)and(l=1) then
begin {ўлў®¤Ё¬ ­  нЄа ­ Ґб«Ё в®з­®бвм 0.001}
write(' | ',fun2:9:6, ' | ',k);
l:=2;
end;
until (abs(s)<qr);
{ўлў®¤Ё¬ ­  нЄа ­ Ґб«Ё в®з­®бвм 0.0001}
write(' | ', fun2:9:6, ' | ',k,' |');
x:=x+h;
writeln;
end;
Writeln('------------------------------------------------------------------------');
readln;
end.

Program Lab2_9;
uses crt;
var
alf: string[26];
last, c, b, s, ss, s1, s2, s3: string;
n, p, k, r, i: integer;
v,g: set of char;
fl: boolean;
begin
clrscr;
{ўў®¤Ё¬ бва®Єг бЁ¬ў®«®ў}
writeln('Vvedite ctroku simvolov');
readln(s);
{г¤ «пҐ¬ ­ з «м­лҐ Ё Є®­Ґз­лҐ Їа®ЎҐ«л}
repeat
if (copy(s,1,1)=' ') then
delete(s, 1, 1);
if (copy(s,length(s),1)=' ') then
delete(s, length(s), 1);
until (copy(s,1,1)<>' ') and (Copy(s,length(s),1)<>' ');

repeat
{г¤ «пҐ¬ «Ёи­ЁҐ Їа®ЎҐ«л ¬Ґ¦¤г б«®ў ¬Ё}
n := pos(' ', s);
if (copy(s,n+1,1)=' ') then
delete(s,n,1) {г¤ «пҐ¬ Їа®б¬®вҐҐ­­®Ґ 1-®Ґ б«®ў® ў бва®ЄҐ}
else
begin
{б®ЎЁа Ґ¬ ў ss ўбҐ бЁ¬ў®«л Єа®¬Ґ бЁ¬ў®«®ў Ї®б«Ґ¤­ҐЈ® б«®ў }
ss:= ss + copy(s,1,n);
delete(s,1,n);
end;
until (pos(' ',s)=0);

last := s;
{ЁйҐ¬ б«®ў  ®в«Ёз­лҐ ®в Ї®б«Ґ¤­ҐЈ®}
s:='';

repeat
n := pos(' ', ss);
if (copy(ss, 1, n-1)<>last) then
s := s + copy(ss, 1, n); {б®ЎЁа Ґ¬ ў s ўбҐ б«®ў  Єа®¬Ґ Ї®б«Ґ¤­ҐЈ®}
delete(ss, 1, n); {г¤ «пҐ¬ Їа®б¬®в७­®Ґ б«®ў® ў бв®ЄҐ, зв®Ўл Їа®ўҐаЁвм б«Ґ¤.}
until (ss='');

s2:=s;

r:=length(s)-1; {г¤ «. Ё§ бва®ЄЁ s Ї®б«Ґ¤­Ё© бЁ¬ў®«, Їа®ЎҐ«}
alf:=('abcdefghijklmnopqrstuvwxyz'); {‡ ¤ Ґ¬ « в.  «д ўЁв}
k:=length(alf); {k ЇаЁбў Ґў Ґ¬ ¤«Ё­г  «д ўЁв }
fl:=false; {ЏаҐ¤Ї®«®¦Ё¬ зв® ў бв®а®Єг ­Ґв б«®ў 㤮ў«. гб«®ўЁо}
n:=length(s); {‚лбзЁвлў Ґ¬ ¤Ё«­­г ўўҐ¤Ґ­­®© бва®ЄЁ}
for i:=1 to n do {‡ ¤ Ґ¬ жЁЄў ®в 1 ¤® ¤«Ё­л б«®ў }
repeat
begin
p:=pos(' ',s);
s3:=copy(s,1,p); {‚ s3 б®ЎЁа Ґ¬ Ї®®зҐаҐ¤­® б«®ў  б® бва®ЄЁ s}
delete(s,1,p); {“¤ «пҐ¬ ўл¤Ґ«Ґ­­®Ґ б«®ў®}
n:=length(s3); {Ќ е®¤Ё¬ ¤Ё­­г ўл¤Ґ«Ґ­­®Ј® б«®ў }
end;
if copy(s3,1,(n-1))=copy(alf,k-(n-2),k) {…б«Ё б«®ў® 㤮ў« гб«®ўЁо в®}
then s1:=s1+s3; {‚ s1 ЇаЁбў Ґў Ґ¬ s3}
if i=(n-1) then s1:=s1+' '; {Џ®б«Ґ бЄ®ЇаЁа б«®ў  s3 ўбв ў«пҐ¬ Їа®ЎҐ«}
until p=0; {‚л室Ё¬ Ґб«Ё § Є®­зЁ«Ёбм Їа®ЎҐ«л}
if s1<>'' then {Џа®ўҐа塞 Ґбвм Їгбв п «Ё бва®Є }
fl:=true; {…б«Ё ­Ґв в® true}
if fl then writeln('S1: ',s1)
else writeln('stroka S1 - pustaya');

{‚뢥¤Ґ¬ ­  ЇҐз вм б«®ў , ®в«Ёз­лҐ ®в Ї®б«Ґ¤­ҐЈ® Ё г¤ «Ёў Ј« б­лҐ ЎгЄўл}
g:=[' ','b','c','d','f','g','h','j','k','l','m','n','p','q','r','s','t','v','w','x','z'];
fl:=true; {ЏҐа¤Ї®«®¦Ё¬ зв® ў бва®ЄҐ Ґбвм Ј« б­ле « в. ЎгЄў}
s:=''; {ЋЎ­г«пҐ¬ бв®а®Єг}
for i:=1 to r do {ЏҐаҐЎЁа Ґ¬ бва®Єг}
if s2[i] in g then {…б«Ё Ґбвм ўе®¦¤Ґ­ЁҐ ¬­®¦Ґбвў  g в®...}
s:=s+copy(s2,i,1); {‚ S § ЇЁблў Ґ¬ Ї®«г祭­го бва®Єг}
ss:=s; {‚ ss б®еа ­ §­ зҐ­ЁҐ бва®ЄЁ s}
for i:=1 to length(s) do {ЏҐаҐЎЁа Ґ¬ бва®Єг S}
begin
n:=pos(' ',s);
if n<>0 then {€б祬 Їа®ЎҐ« ў бва®ЄҐ Ё Ґб«Ё Ґбвм в®}
delete(s,n,1); {“¤ «пҐ¬ Їа®ЎҐ« Ё§ бва®ЄЁ}
end;
if (s='') or (s=' ') then fl:= false; {…б«Ё бв®а®Є  ®Є ¦Ґвбп Їгбв®©, в® § ¤ Ґ¬ д «мим}
if fl then writeln('S2: ',ss) {‚лў®¤Ё¬ б®«Ј«. « в. ЎгЄўл}
else
writeln('stroka S2 - pustaya'); {…б«Ё в Є®ўле ­Ґв, в® ўлў®¤Ё¬ б®®ЎйҐ­ЁҐ}
readln;
end.