program land;
var name: char;
begin
writeln('Input name land');
read(name);
case name of
'Г','г':writeln('Европа');
'К','к':writeln('Китай');
'С','с':writeln('Северная Америка');
'В','в':writeln('Южная Америка');
'Ю','ю':writeln('Африка');
else writeln('Такой страны в списке нет');
end;
readln;
end.

CONST
 Sack2Litre=109.0;
 Sack2Strike=1.499;
 Units:ARRAY[1..3] of STRING=('     Sack','    Litre','   Strike');

VAR
 Order:ARRAY[1..3] of BYTE;
 Unit1:BYTE;
 K2,K3,Min_Value,Max_Value,Step:Real;
 i:INTEGER;

BEGIN
 WriteLn('Enter the base unit:');
 WriteLn('1 - Sack');
 WriteLn('2 - Litre');
 WriteLn('3 - Strike');
 ReadLn(Unit1);
 CASE Unit1 of
 1: begin
     K2:=Sack2Litre;
     K3:=Sack2Strike;
     Order[1]:=1;
     Order[2]:=2;
     Order[3]:=3;
    end;
 2: begin
     K2:=1.0/Sack2Litre;
     K3:=Sack2Strike/Sack2Litre;
     Order[1]:=2;
     Order[2]:=1;
     Order[3]:=3;
    end;
 3: begin
     K2:=1.0/Sack2Strike;
     K3:=Sack2Litre/Sack2Strike;
     Order[1]:=3;
     Order[2]:=1;
     Order[3]:=2;
    end;
 END;
 Write('Enter the low value '); ReadLn(Min_Value);
 Write('Enter the high value '); ReadLn(Max_Value);
 Step:=(Max_Value-Min_Value)/10;
 WriteLn(Units[Order[1]],'     ',Units[Order[2]],'     ',Units[Order[3]]);
 For i:=0 to 10 do
  Writeln((Min_Value+Step*i):9:4,'     ',
          (Min_Value+Step*i)*K2:9:4,'     ',
          (Min_Value+Step*i)*K3:9:4);
 ReadLn;
END.

CONST
 Family:STRING='LysyhNadezdaOlegovna';
VAR
 Lng,Number_of_A,i:BYTE;
BEGIN
 WriteLn(Family);
 Lng:=Length(Family);
 WriteLn('Length= ',Lng);
 Number_of_A:=0;
 For i:=1 to Lng do
  If Family[i]='a' then Inc(Number_of_A);
 WriteLn('There are ',Number_of_A,' letters "a" in the string');
 For i:=1 to Lng do
  If (Family[i]<>'a') and (Family[i]<>'A')
  and (Family[i]<>'o') and (Family[i]<>'O')
  then Write(Family[i]);
 ReadLn;
END.

VAR
 Family:STRING;
 Lng,Number_of_A,i:BYTE;
 f:TEXT;
BEGIN
 Assign(f,'C:\fff');
 ReSet(f);
 ReadLn(f, Family);
 Close(f);
 WriteLn(Family);
 Lng:=Length(Family);
 WriteLn('Length= ',Lng);
 Number_of_A:=0;
 For i:=1 to Lng do
  If Family[i]='a' then Inc(Number_of_A);
 WriteLn('There are ',Number_of_A,' letters "a" in the string');
 For i:=1 to Lng do
  If (Family[i]<>'a') and (Family[i]<>'A')
  and (Family[i]<>'o') and (Family[i]<>'O')
  then Write(Family[i]);
 ReadLn;
END.

VAR
 y:ARRAY[1991..2001] of REAL;
 k,General_Income:INTEGER;
BEGIN
 General_Income:=0;
 For k:=1991 to 2001 do
  begin
   y[k]:=100*(Sin(ABS((SQR(k)-1.5)/(Pi-3.4*k)))+Cos(2+k));
   WriteLn(k,ROUND(y[k]):15);
   General_Income:=General_Income+ROUND(y[k]);
  end;
 WriteLn('General_Income was ',General_Income);
 ReadLn;
END.

VAR
 x,y,h,Sum:REAL;
 i,Npos:INTEGER;
BEGIN
 h:=0.1;
 Sum:=0;
 Npos:=0;
 For i:=0 to 10 do
  begin
   x:=h*i;
   y:=ABS((SQR(Cos(x*2))*Cos(x*2)+Sin(x)*2)/(x*5-2*Pi));
   WriteLn(x:3:1,y:15:5);
   If y>0 then
    begin
     INC(Npos);
     Sum:=Sum+y;
    end;
  end;
 Writeln('There are ',Npos,' positive values.');
 Writeln('Their sum is',Sum:15:5);
 ReadLn;
END.