прикладная математика

program tratata;
var Q: array[1..10,1..10] of integer;
 

procedure filling;
var i,j : integer;
begin
 randomize();
 for i := 1 to 10 do
  for j := 1 to 10 do
    Q[i,j] := random(100)- 50;
end;

procedure show;
var i,j : integer;
begin
  for i := 1 to 10 do
  begin
    for j := 1 to 10 do write( Q[i,j], ' ' );
    writeln('');
  end;
end;

procedure countElements;
var countMinus,countPlus : integer;
  i,j : integer;
begin
  for i := 1 to 10 do
    for j := 1 to 10 do
      if ( Q[i,j] >= 0 ) then countPlus := countPlus + 1
        else countMinus := countMinus + 1;
  writeln('countPlus = ',countPlus,' countMinus = ',countMinus);
end;

procedure countcountElements3str;
var sum, i,j : integer;
begin
  sum := 0;
  for i := 1 to 10 do
      if ( i mod 2 = 0 ) then sum := sum + Q[3,i];     
  writeln('sum = ',sum);
end;

procedure findMinEl;
var min1,min2,sum, i,j : integer;
begin
  min1 := Q[1,1]; 
  for i := 2 to 10 do
      if ( min1 > Q[i,i] ) then min1 := Q[i,i];     
      
  min2 := Q[1,10]; 
  for i := 2 to 10 do
      if ( min2 > Q[i,10-i+1] ) then min2 := Q[i,10-i+1]; 
  
  sum := min1 + min2;
  writeln('min1 = ',min1,' min2 = ',min2,' sum = ',sum);
end;

procedure streamline;
var  
    i,j, min, nomMin, dop : integer;
begin
  for i := 1 to 10 do
  begin
    min := Q[i,9];
    nomMin := i;
    for j := i to 10 do 
       if ( min > Q[j,9] ) then
       begin
        min := Q[j,9];
        nomMin := j;
       end;
    
    for j := i to 10 do 
    begin
      dop := Q[i,j];
      Q[i,j]:= Q[nomMin,j];
      Q[nomMin,j] := dop;
    end;  
  end;
  //показать
  show;
end;    

procedure findEndSet;
var  
    i,j, max,nomMax, dop : integer;
begin
  max:= Q[3,1];
  nomMax := 1;
  for i := 1 to 10 do
    if ( max < Q[3,i] ) then
    begin
        max := Q[3,i];
        nomMax := i;
    end;
  
  dop := Q[3, nomMax];
  Q[3, nomMax] := Q[3, 10];
  Q[3, 10] := dop;
  
  //показать
  show;
end;

begin
//заповнення масиву
filling; 
//показать
show; writeln('');
//1)Найти количество положительных и количество отрицательных элементов
countElements; writeln('');
//2)Определить сумму элементов, стоящих в четных позициях 3 строки.
countcountElements3str; writeln('');
//3)Найти min-элемент главной диагонали и сложить его с min-элемент побочной диагонали
findMinEl; writeln('');
//4)Упорядочить массив по не убыванию элементов 9 столбца.
streamline; writeln('');
//5)Найти mах- положительный элемент в 3 строке и поставить его на последнее место.
findEndSet;

end.

//6)Определить, является ли  натуральное число  N  степень числа 5 или нет.
program HZ;
var N , num : integer;
  isTrue : boolean;
begin
  readln(N);
  num := 5;
  isTrue := false;
  
  while ( num <= N )do
  begin
    if ( num = N ) then isTrue := true; 
    num := num * 5;
  end;
  
  if ( isTrue = true) then writeln('Yes')
    else  writeln('No');
end.

var y,a,b,c:integer;
begin
read(a,b,c);
y:=min(a*b,c)+min(min(a,b),min(c,a+c))+min(min(a,b),c);
write(y);
end.