Сделать программу, которая вычисляет периметр круга.
P=2π*R2
Ввод числа должен осуществляться в главной функции, расчет
в возвратной функции. Выводится ответ должен в главной
функции.
 Пользователь вводит рост шести человек в классе, возвратная
функция вычисляет наибольший и возвращает его в главную
функцию, и главная функция выводит на экран

только с библиотекой iostream

PascalABC.Net с максимумом "фишек":
function f(x:double):double;
begin
  result:=(3*x+2*x+5)/(cos(x)-sin(x))+power(x,3)
  { Cкорее всего, в условии ошибка и должно быть не 3х, а 3x^2,
    тогда надо числитель писать как (3*sqr(x)+2*x+5) }
end;

var
  x:double;
begin
  foreach x in [0.1,0,1.5] do
    Writeln('x=',x:3:1,'  y=',f(x):0:5)
end.

Результат выполнения программы:
x=1.5  y=-10.11288
x=0.1  y=6.14508
x=0.0  y=5.00000

Обратите внимание, что порядок следования х не такой,
как указан в программе: элементы множества
считаются неупорядоченными и компилятор вправе
располагать их произвольно.

Более традиционное решение
function f(x:double):double;
begin
  result:=(3*x+2*x+5)/(cos(x)-sin(x))+power(x,3)
  { Cкорее всего, в условии ошибка и должно быть не 3х, а 3x^2,
    тогда надо числитель писать как (3*sqr(x)+2*x+5) }
end;

const
  a:array[1..3] of double=(0.1,0,1.5);
var
  i:integer;
begin
  for i:=1 to 3 do
    Writeln('x=',a[i]:3:1,'  y=',f(a[i]):0:5)
end.

Результат выполнения программы:
x=0.1  y=6.14508
x=0.0  y=5.00000
x=1.5  y=-10.11288

1. Решите примеры
   1.)  2
   2.)  3
   3.)  1
   4.)  0
   5.)  0
   6.)  3
   7.)  1

2.) Определите результаты выполнения следующих действий
   1.)  {
          a = 1819;        
          b = (div (а,100)) * 10 + 9 = 18 * 10 + 9 = 180 + 9 = 189
          a = mod (10*b - a),100) = mod (189*10-1819,100) = mod (71,100) = 71
         
          a = 71 ; b = 189       
        };
   2.)  {
          а = 7*3 – 4 = 21 - 4 = 17
          а = а*5 = 17*5 = 85
          b = div (a,10) = div (85,10) = 8
          a = mod (a,10) = mod (85,10) = 5
         
          a = 5 ; b = 8
        };
   3.)  {
          a = 5
          b =a+2 = 5+2 = 7
          a = (a+2)*(b-3) = (5+2)*(7-3) = 7*4 = 28
          b = div (a,5) = div (28,5) = 5
          a = mod (a,b) = mod (28,5) = 3
          a = a+1 = 3+1 = 4
          b = mod (a+14,7) = mod (18,7) = 4

          a = 4 ; b = 4
        };

3.) Представить следующие числа в нормализованном виде, указать мантиссу и порядок
   1.)
      Нормализованный вид: 3.7412*10^-5
      Мантисса: 3.7412
      Порядок: -5
   2.)
      Нормализованный вид: 1.65723*10^7
      Мантисса: 1.65723
      Порядок: 7