Знак – это явное или неявное соглашение о приписывании некоторому чувственно воспринимаемому объекту определённого смысла. Знак называется пиктограммой, если: 1)соглашение явное (форма знака позволяет догадаться о его смысле) 2)соглашение неявное (связь между формой и значением знака устанавливается по договоренности)

Program Markovsp1;
uses crt;
const
  eps=0.001;
var
  t,s:real;
  i:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  writeln('Программа вычисляет частичную сумму ряда ');
  writeln('  S=1+1/(2^2)+1/(3^2)+1/(4^2)+... ');
  writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');
используется цикл repeat');
  writeln();
  s:=0;
  i:=1;
  repeat
    t:=1/((i)*(i));
    s:=s+t;
    //writeln('i=',i,'  T=',t:0:6,'  S=',s:0:6);
    i:=i+1;
  until abs(t)<eps;
  writeln('s=',s:0:6,' (pi^2)/6=',(pi*pi)/6:0:6);
  writeln('Приближение к (pi^2)/6 равно ',s-(pi*pi)/6:0:6);
end.

Program Markovsp2;
uses crt;
const
  eps=0.001;
var
  t,s:real;
  i:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  writeln('Программа вычисляет частичную сумму ряда ');
  writeln('  S=1+1/(2^2)+1/(3^2)+1/(4^2)+... ');
  writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');
используется цикл while');
  writeln();
  s:=0;
  i:=1;
  t:=1;
  while t>eps do
    begin
      t:=1/(i*i);
      s:=s+t;
      //writeln('i=',i,'  T=',t:0:6,'  S=',s:0:6);
      i:=i+1;
     end;
  writeln('s=',s:0:6,' (pi^2)/6=',(pi*pi)/6:0:6);
  writeln('Приближение к (pi^2)/6 равно ',s-(pi*pi)/6:0:6);
end.

program Lyonyshna;
const
    Rus = ['А'..'Я', 'а'..'я'];
    Lat = ['A',..'Z', 'a'..'z'];
Var f,frus,flat,foth:text;
    i: integer;
    st,strus,stlat,stoth: string;
begin
    Assign(f, 'file1.txt');
    Rewrite(f);
    write('Введите исходную строку: '); readln(st);
    writeln(f,st);
    close(f);
    strus:='';
    stlat:='';
    stoth:='';
    Reset(f);
    Assign(frus, 'russian.txt');
    Rewrite(frus);
    Assign(flat, 'latin.txt');
    Rewrite(flat);
    Assign(foth, 'other.txt');
    Rewrite(foth);
    Readln(f,st);
    for i:=1 to length(st) do
      if st[i] in rus then strus:=strus+st[i]
        else
          if st[i] in lat then stlat:=stlat+st[i]
            else
              stoth:=stoth+st[i];
    Writeln(frus,strus);
    Writeln(flat,stlat);
    Writeln(foth,stoth);
    Writeln('Русские символы: ',strus);
    Writeln('Латинские символы: ',stlat);
    Writeln('Другие символы: ',stoth);
    Close(f); Close(frus); Close(flat);  Close(foth);
end.