*if15*

var
  a,b,c,k_plus,k_minus:integer;
begin
  write('Введите 3 целых числа через пробел a,b,c=');
  readln(a,b,c);
  k_plus:=0;
  k_minus:=0;
  if a>0 then
    inc(k_plus)
  else if a<0 then
    inc(k_minus);
  if b>0 then
    inc(k_plus)
  else if b<0 then
    inc(k_minus);
  if c>0 then
    inc(k_plus)
  else if c<0 then
    inc(k_minus);
  writeln('Количество положительных чисел=', k_plus);
  writeln('Количество отрицательных чисел=', k_minus);
  readln;
end.
-----
*if27*

Var
y:Integer;
x:Real;
Begin
ReadLn(x);
y := -1;
 
While (x >= 2) Do
x := x - 2;
 
If (x < 0) Then
y := 0
Else 
If (x >= 0) And (x < 1) Then
y := 1;
WriteLn('f(x) = ',y); 
End.
------
*case15*

var
  n:6..14;
  m:1..4;
begin
  repeat
    write('Введите достоинство карты целое число [6..14]=');
    readln(n);
  until n in [6..14];
  repeat
    write('Введите масть карты целое число [1..4]=');
    readln(m);
  until m in [1..4];
  case n of
    write('шестерка ');
    write('семерка ');
    write('восьмерка ');
    write('девятка ');
    write('десятка ');
    write('валет ');
    write('дама ');
    write('король ');
    write('туз ');
  end;
  case m of
    writeln('пик');
    writeln('треф');
    writeln('бубен');
    writeln('червей');
  end;
  readln;
end.
------
*for10*

var
  n,i:integer;
  s:real;
begin
  write('Введите целое число N=');
  readln(n);
  s:=0;
  for i:=1 to n do
    s:=s+1/i;
  writeln('Сумма S=',s:0:5);
  readln;
end.
-----
*While9*

var
  n,k,pow:integer;
begin
  repeat
    write('Введите целое n=');
    readln(n);
  until n>1;
  k:=0;
  pow:=1;
  while pow<=n do
    begin
      pow:=pow*3;
      inc(k);    
    end;
  write('Наименьшее число= ',k);
  readln;
end.
------
*proc18*

const
  pi=3.14;
function CircleS(r:real):real;
begin
  CircleS:=pi*sqr(r);
end;
var
  r1:real;
  i:1..3;
begin
  for i:=1 to 3 do
    begin
      write('Введите радиус ',i,' круга, R=');
      readln(r1);
    writeln('Площадь круга ',i,' радиуса R=',CircleS(r1):0:2);
    end;
  readln;
end.
-----
*array2*

const
  maxSize=14;{при размере>14 произойдет выход за диапазон integer типа}
type
  IndexEl=1..maxSize;
  Tarr=array[IndexEl] of integer;
var
  a:Tarr;
  n,i:IndexEl;
  pow:integer;
begin
  repeat
    write('Размер массива, не более ',maxSize,'=');
    readln(n);
  until n in [1..maxSize];
  writeln('Полученный массив');
  pow:=2;
  for i:=1 to n do
    begin
      a[i]:=pow;
      pow:=pow*2;      
      write(a[i],' ');
    end;
  readln;
end.
-----
*matrix27*

const
  maxSize=10;
type 
  Tmatrix=array[1..maxSize,1..maxSize] of integer;
var
  a:Tmatrix;
  i,j,m,n,maxmin,jmin:integer;
begin
  repeat
    write('Введите количество строк матрицы, не более ',maxSize,'=');
    readln(n);
  until (n>=1) and (n<=maxSize);
  repeat
    write('Введите количество столбцов матрицы, не более ',maxSize,'=');
    readln(m);
  until (m>=1) and (m<=maxSize);
  randomize;
  writeln('Исходная матрица');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(100)+1;
          write(a[i,j]:4);
        end;
      writeln;
    end;
  writeln;
  for i:=1 to n do
    begin
      jmin:=1;
      for j:=2 to m do
        if a[i,j]<a[i,jmin] then
          jmin:=j;
      if i=1 then
        maxmin:=a[1,jmin]
      else if a[i,jmin]>maxmin then
        maxmin:=a[i,jmin];
    end;
  writeln('Максимальный из минимальных элементов строк=',maxmin);
  readln;
end.
------
*file15*

var
  f:file of real;
  i,n:integer;
  x,s:real;
begin
  {создание файла для обработки}
  write('Кол-во эл-ов для записи в файл=');
  readln(n);
  assign(f,'file15.real');
  rewrite(f);
  writeln('Исходный файл');
  for i:=1 to n do
    begin
      x:=random*5;
      write(f,x);
      write(x:0:2,' ');
    end;
  writeln;
  close(f);
  {поиск суммы эл-ов с четными номерами исходного файла}
  (*
  нумерация в типизированном файле начинается с нуля, поэтому фактически мы ищем сумму нечетных номеров файла
  по той причине, что для пользователя данные номера являются четными.
  *)
  reset(f);
  s:=0;
  i:=1;
  while i<=filesize(f)-1 do
    begin
      seek(f,i);
      read(f,x);
      s:=s+x;
      inc(i,2);
    end;
  close(f);
  writeln('Сумма=',s:0:2);
  readln;
end.
------