Решите задачи по программированию в паскаль 1) Какое число ...

Сергей

1.
const
  quantity = 18;
var
  res, d: integer;
function sum(a, b: integer): integer;
begin
  sum := a + b;
end;
begin
  writeln('Введите число D: ');
  readln(d);
  res := sum(d, quantity);
  writeln(res);
end.

2.
const
  x = 1.0;
var
  square, radius, Pi_num: real;
function ArcTan(X: Real): Real;
begin
  ArcTan := (sin(x) / cos(x));
end;
function ray(square: real): real;
begin
  ray := sqrt(square / Pi_num);
end;
begin
  Pi_num := ArcTan(x) * 2;
  writeln('Введите площадь окружности: ');
  readln(square);
  radius := ray(square);
  writeln(radius);
end.