Var
 R,S:Real;

Function Sq_C(Ro:Real):Real;
begin
 Sq_C:=Ro*Ro*Pi;
end;

Procedure Sq_Crc(Ro:Real; var S_C:Real);
begin
 S_C:=Ro*Ro*Pi;
end;

Begin
 Write('R = ');
 Readln(R);
 Sq_Crc(R,S);
 Writeln('Procedure: S = ',S:0:3);
 Writeln(' Function: S = ',Sq_C(R):0:3);
 Readln
End.

Var
 m,n,p,GCD:LongInt; {формат Longint выбран потому, что в программе будет
                     использоваться произведение чисел m и n}

Function Min(p,q:LongInt):LongInt;
{вспомогательная функция поиска минимального из двух чисел}
begin
 if p>q then Min:=q else Min:=p;
end;

Function Find_GCD(p,q:LongInt):LongInt;
{Ищем Наибольший Общий Делитель (Greatest Common Divisor) двух чисел.
Алгоритм таков: проверяем делимость бОльшего числа на меньшее, и в случае
отрицательного результата в цикле отнимаем от меньшего по единичке до
тех пор, пока не окажется, что оба исходных числа делятся на полученное.
Делимость проверяется по равенству нулю остатка от деления.}
var
 i:LongInt;
begin
 i:=Min(p,q)+1;
 repeat
  i:=i-1;
 until ((p mod i)=0) and ((q mod i)=0);
 Find_GCD:=i;
end;

Begin
 Repeat
 {Цикл организован для проверки выполнения условия строгой положительности
  вводимых чисел}
  Write('m = ');
  Readln(m);
  Write('n = ');
  Readln(n);
  if (m<=0) or (n<=0) then writeln('Both numbers must be positive!!!');
 Until (m>0) and (n>0);
 GCD:=Find_GCD(m,n);
 Writeln('Greatest Common Divisor = ',GCD);
 {Для поиска Наибольшего Общего Кратного используется теорема о том,
  что произведение НОД и НОК равно произведению самих чисел.}
 Writeln('  Least Common Multiple = ',(m*n div GCD));
 Readln
End.

Var
 n,i:Byte;
 a,Sum:QWord;
Begin
 Repeat
  Write('n = ');
  Readln(n);
  if n>20 then writeln('Too big!!! Must be <=20');
 Until n<21;
 a:=1;
 Sum:=0;
 for i:=1 to n do
  begin
   a:=a*i;
   Sum:=Sum+a;
  end;
 Writeln('Sum = ',Sum);
 Readln
End.

Var
 n,i:Byte;
 a,Sum:LongInt;
Begin
 Repeat
  Write('n = ');
  Readln(n);
  if n>12 then writeln('Too big!!! Must be <=12');
 Until n<13;
 a:=1;
 Sum:=0;
 for i:=1 to n do
  begin
   a:=a*i;
   Sum:=Sum+a;
  end;
 Writeln('Sum = ',Sum);
 Readln
End.

Var
 a,b,c,d,m:Real;

Function Max2(q1,q2:real):real;
begin
 if q1>q2 then Max2:=q1 else Max2:=q2;
end;

Function Max3(q1,q2,q3:real):real;
var p:real;
begin
 p:=max2(q1,q2);
 if p>q3 then Max3:=p else Max3:=q3;
end;

Begin
 Write('a = ');
 Readln(a);
 Write('b = ');
 Readln(b);
 Write('c = ');
 Readln(c);
 m:=Max3(a,b,c);
 if m=b then
  begin
   d:=a;
   a:=b;
   b:=d;
  end;
 if m=c then
  begin
   d:=a;
   a:=c;
   c:=d;
  end;
 m:=Max2(b,c);
 if m=c then
  begin
   d:=b;
   b:=c;
   c:=d;
  end;
 Writeln(a:0:3,'  ',b:0:3,'  ',c:0:3);
 Readln
End.