//Описать процедуру PowerA3(A, B), вычисляющую третью степень числа A и возвращающую ее в переменной B
//(A — входной, B — выходной параметр; оба параметра являются вещественными). С помощью этой процедуры найти третьи степени пяти данных чисел.
var
a,b:real;
PROCEDURE PowerA3(a: real; var b: real);
begin
b:=a*a*a;
end;
begin
readln(a);
PowerA3(a,b);
write(b);
end.

//Proc4°. Описать процедуру TrianglePS(a, P, S), вычисляющую по стороне a равностороннего треугольника его
//периметр P = 3·a и площадь S = a2·(3)1/2/4 (a — входной, P и S — выходные параметры; все параметры являются вещественными).
//С помощью этой процедуры найти периметры и площади трех равносторонних треугольников с данными сторонами.
var
a,P,S:real;
PROCEDURE TrianglePS(a: real; var p: real; var S:real);
begin
P:=3*a;
S:=a*a*sqrt(3)/4;
end;
begin
readln(a);
TrianglePS(a,P,S);
write(P,' ' ,S);
end.

//Proc16. Описать функцию Sign(X) целого типа, возвращающую для вещественного числа X следующие значения:
//−1,    если X < 0;        0,    если X = 0;        1,    если X > 0.
//С помощью этой функции найти значение выражения Sign(A) + Sign(B) для данных вещественных чисел A и B.
var
  a, b, x,SUM: real;

function Sign(x: real): real;
begin
if x<0 then Result:=-1
else if x=0 then Result:=0
else Result:=1;

end;

begin
  READLN(a,b);
  sum := Sign(a) + Sign(b);
  writeln(sum);
end.

//Proc17. Описать функцию RootCount(A, B, C) целого типа, определяющую количество корней
//квадратного уравнения A·x2 + B·x + C = 0 (A, B, C — вещественные параметры, A ≠ 0).
//С ее помощью найти количество корней для каждого из трех квадратных уравнений с данными коэффициентами.
//Количество корней определять по значению дискриминанта:
//D = B2 − 4·A·C.
var
  a, b, c: integer;

function RootCount(a:integer;b:integer;c:integer): integer;
var
d:integer;
begin
D := B*b-4*A*C;
if D<0 then Result:=0
else if D=0 then Result:=1
else Result:=2;

end;

begin
  READLN(a,b,C);
 writeln (rootcount(a,b,c));
end.