//1.	Определить время падения камня на поверхность
//земли с высоты h. (t:=Sqrt(2*h/g);)
function per(h:real):real;
const g = 9.8;
begin
  writeln('t=',sqrt(2*h/g));
end;

//2.	Известна длина окружности. Найти площадь круга,
//ограниченного этой окружностью. (S:=(Sqr(L)/4Pi))
function vtor(l:real):real;
begin
  writeln('l=',sqr(l)/4*Pi);
end;

//3.	Вычислить высоту треугольника, опущенную на сторону а,
//по известным значениям длин
//его сторон a, b, c. (h:=(2/a)*sqrt(p(p-a)(p-b)(p-c)), p:=(a+b+c)/2

function tret(a,b,c:real):real;
var p:real;
begin
  p:=(a+b+c)/2;
  writeln('h=',(2/a)*sqrt(p*(p-a)*(p-b)*(p-c)));
end;

//4.	Вычислить объем цилиндра с радиусом основания r и высотой h.

function chet(r,h:real):real;
begin
  writeln('V=',Pi*sqr(r)*h);
end;

//5.	Определить расстояние, пройденное физическим телом за время t,
//если тело движется с постоянным ускорением а и имеет в начальный
//момент времени скорость V0.

function phett(v0, a, t:real):real;
begin
  writeln('S=',v0 * t + (a * sqr(t) / 2));
end;

//6.	Вычислить площадь треугольника по формуле Герона, если заданы его стороны.

function shest(a,b,c:real):real;
begin
 // writeln('S=',sqrt(p*(p-a)*(p-b)*(p-c)));
end;

//7.	Определить координаты вершины параболы y=ax2+bx+c (a<>0).
//Коэффициенты a,b,c заданы. (x=-b/2a) (y:=

function shem(a,b,c:real):real;
var x:real;
begin
  if a<>0 then
    begin
    x:=-b/2*a;
    writeln('y=',a*sqr(x)+b*x+c);
    end
  else
    begin
    writeln('a=0!');
    end;
end;

//8.	По данным сторонам прямоугольника вычислить его периметр,
//площадь и длину диагонали

function vosem(a,b:real):real;
begin
  writeln('Периметр = ',2*(a+b));
  writeln('Площадь = ',a*b);
  writeln('Длина диаоганли = ', sqrt(sqr(a)+sqr(b)));
end;

//9.	Даны два числа. Найти среднее арифметическое их квадратов
//и среднее арифметическое их модулей

function devyt(a,b:real):real;
begin
  writeln('Cреднее арифметическое квадратов = ',sqr(a+b)/2);
  writeln('Cреднее арифметическое модулей = ',abs(a+b)/2);
end;

//10.	Дана длина ребра куба. Найти площадь грани, площадь
//полной поверхности и объем этого куба.

function desat(l:real):real;
begin
  writeln('Площадь грани куба = ', sqr(l));
  writeln('Площадь полной поверхности куба = ', 6*sqr(l));
  writeln('Объем куба = ', power(l,3));
end;

//11.	Найти длину окружности и площадь круга заданного радиуса R.

function odinatsat(r:real):real;
begin
  writeln('Длину окружности = ',2*Pi*r);
  writeln('Площадь круга = ',Pi*sqr(r));
end;

//12.	Даны координаты трех вершин треугольника (x1, y1), (x2, y2), (x3, y3).
//Найти его периметр и площадь.

function dvenatsat(x1,y1,x2,y2,x3,y3:real):real;
begin
  writeln('Площадь = ',1/2*(x1*(y2-y3)+x2*(y3-y1)+x3*(y1-y2)));
  writeln('Периметр = ',sqrt(sqr(x1-y1)+sqr(x2-y2)+sqr(x3-y3)));
end;

//13.	Дано целое четырехзначное число.
//Используя операции div и mod, найти сумму его цифр

function Trenatsat(a:integer):integer;
var i,b,c:integer;
begin
  c:=0;
  for i:=0 to inttostr(a).Length do
    begin
    b:=a mod 10;
    c:=c + b;
    a:=a div 10;
    end;
  writeln('Сумма цифр = ',c);
end;

//14.	Дано целое четырехзначное число.
//Используя операции div и mod, найти произведение его цифр.

function Chetirnadsat(a:integer):integer;
var i,b,c:integer;
begin
  c:=1;
  for i:=0 to inttostr(a).Length-1 do
    begin
    b:=a mod 10;
    c:=c * b;
    a:=a div 10;
    end;
  writeln('Произведение цифр = ',c);
end;

//15.	Скорость первого автомобиля V1 км/ч, второго — V2 км/ч, расстояние
//между ними S км. Определить расстояние между ними через T часов,
//если автомобили первоначально движутся навстречу друг другу.

function petnatsat(v1,v2,s,t:real):real;
begin
    writeln('Ответ ',abs(s-((t*v1)+(t*v2))));
end;

//16.	Скорость лодки в стоячей воде V км/ч, скорость течения реки U км/ч (U < V).
//Время движения лодки по озеру T1 ч, а по реке
//(против течения) — T2 ч. Определить путь S, пройденный лодкой.

function sthesnadsat(v,u,t1,t2:real):real;
var s:real;
begin
  if (u<v) then
  begin
  s := v * t1;
  v := v - u;
  s := s + v * t2;
  writeln('Расстояние = ',s);
  end
  else
  writeln('U > V')
end;

//17.	Дана сторона равностороннего треугольника.
//Найти площадь этого треугольника и радиусы вписанной и описанной окружностей.

function shemnadsat(a:real):real;
begin
    writeln('Площадь = ',(sqr(a)*sqrt(3))/4);
    writeln('Радиус вписанной окружности = ',(a*sqrt(3))/6);
    writeln('Радиус описанной окружности = ',(a*sqrt(3))/3);
end;

//18.	Известно количество жителей в государстве и площадь его территории.
//Определить плотность населения в этом государстве.

function vosemnadsat(c,s:real):real;
begin
    writeln('Плотность населения = ',c/s);
end;

//19.	Найти площадь кольца, внутренний радиус которого равен R1,
//а внешний радиус равен R2 (R1 < R2).

function devatnadsat(r1,r2:real):real;
begin
    if r1<r2 then
    writeln('Площадь кольца = ',Pi*(sqr(r2)-(sqr(r1))))
    else writeln('R1 > R2');
end;

//20.	Найти максимум и минимум двух натуральных чисел не
//используя ветвления алгоритма.

function dvatsat(a,b:integer):integer;
var i,c,min,max:integer;
begin
    min:=a;
    max:=b;
    for i:=0 to 1 do
    begin
      if min < max then continue
      else
        begin
        c:=min;
        min:=max;
        max:=c;
        end
    end;
    writeln('max = ', max,'; min = ', min)
end;

begin
  per(2);
  vtor(3);
  tret(2,4,5);
  chet(2,3);
  phett(2,3,4);
  shest(2,4,5);
  shem(2,3,4);
  vosem(2,4);
  devyt(2,3);
  desat(5);
  odinatsat(5);
  dvenatsat(1,2,3,4,5,6);
  Trenatsat(5);
  Chetirnadsat(5);
  petnatsat(5,4,6,1);
  sthesnadsat(2,4,6,5);
  shemnadsat(4);
  vosemnadsat(5,10);
  devatnadsat(5,5);
  dvatsat(10,3);
end.