-_-2

program prog8var1zad1;

var x: real;

begin
  x:= ( (sqrt(6)+6)/2 + (sqrt(13)+13)/3 + (sqrt(21)+21)/4 );
  writeln(' x is ', x);
  readln(); // все. Конец работы и ожидания нажания ввода для завершения программы.

end.

//-------------------------

program prog8var1zad2;

var a: array[1..10] of integer;
var min, max,i: integer;

begin
  randomize;
  for i:= 1 to 10 do
    a[i]:= random(101)-50;// от -50 до 50
  min:= 50;
  max:= -50;
  for i:= 1 to 10 do
    begin
      if ( a[i] < min ) then min := a[i];
      if ( a[i] > max ) then max := a[i];
    end;

  // вывод
  for i:= 1 to 10 do
    write(a[i],' ');
  writeln();
  writeln('Max: ', max, ' Min: ', min);
  writeln('end');
  readln(); // все. Конец работы и ожидания нажания ввода для завершения программы.

end.

//----------------------------

program prog8var13zad1;

var a: array[1..10] of string;
var b: array[1..10] of integer;
var i, j, count, tmpCount: integer;
var ch: char;
var tmp: string;

begin
  writeln('Input 10 words:');
  for i:= 1 to 10 do
    readln(a[i]);

  write('Input char ');
  readln(ch);

  // подсчитаем частоту:
  for i:= 1 to 10 do
    begin
      count := 0;
      for j:= 1 to length(a[i]) do
        if (a[i][j] = ch) then inc(count);
      b[i] := count;
      writeln(a[i], ' : char "', ch ,' : ', count);
    end;

  //сортировка
  for i:= 1 to 10 do
    for j:= 10 downto 2 do
      if (b[j-1] < b[j]) then
        begin
          tmp:= a[j];
          a[j]:= a[j-1];
          a[j-1]:= tmp;
          tmpCount:= b[j];
          b[j]:= b[j-1];
          b[j-1]:= tmpCount;
        end;


  // вывод
  writeln('Sorted massive of string by char ', ch);
  for i:= 1 to 10 do
    write(a[i],' ');
  writeln();
  writeln('end');
  readln(); // все. Конец работы и ожидания нажания ввода для завершения программы.

end.

//---------------------------------

program prog8var13zad2;

type massive = array[1..10] of integer;



procedure rol(var a: massive);
var i, tmp: integer;
var b: massive;
begin
  for i:= 1 to 10 do
    b[i]:= a[i];
  for i:= 1 to 10 do
    begin
      if (i <> 10) then a[i]:= b[i+1];
      if (i = 10) then a[i]:= b[1];
    end;
end;

var a: massive;
var k,i:integer;

begin
  writeln('Fill the massive');
  for i:=1 to 10 do
    readln(a[i]);

  write('input k:');
  readln(k);
  for i:= 1 to k do
    rol(a);

  writeln('End massive:');
  for i:=1 to 10 do
    write(a[i],' ');

  writeln();
  writeln('end');
  readln(); // все. Конец работы и ожидания нажания ввода для завершения программы.

end.