Составить алгоритм и программу для вычисления значения функции f по формулам: sqrt(ab)/3(a+b)^2 - при a> 0, b> 0 (pascal)

ответил в комментарий к ответу в вопросе

program p1;
var a, b, F: real;
begin
writeln('Введите A >> ');
readln(a);
writeln('Введите b >> ');
readln(b);
if (a>0) and (b>0.0) then
begin
F:=sqrt(a*b)/3*sqr(a+b);
writeln('F(a,b)='+F);
end
else 
writeln('Ошибка. A<0 или B<0');
end. 

using System;

namespace ConsoleApp4

{

   class Program

   {

       static void Main()

       {

           int attempts = 1;

           Random r = new Random();

           int x = r.Next(11);

           Console.WriteLine("Ok. I made a guess. Now you have 3 attempts.");

           for (int i=0; i < 3; ++i)

           {

               Console.WriteLine($"Attepmt #{attempts}");

               if (int.Parse(Console.ReadLine()) == x)

               {

                   Console.WriteLine($"Congrutialations! You got it!\nIt really was number: {x}\nAttempts passed: {attempts}\nTry again? y/n");

                   if (Console.ReadLine() == "y")

                   {

                       Console.Clear();

                       Main();

                       return;

                   }

                   return;

               }

               Console.WriteLine("Nope.");

               attempts++;

           }

           Console.WriteLine($"You lose.\nIt was: {x}\nTry again? y/n", x);

           if (Console.ReadLine() == "y")

           {

               Console.Clear();

               Main();

               return;

           }

       }

   }

}

Function IsPrime(m: integer): boolean;
var
  i: integer;
  p: boolean;
begin
  p := true;
  for i := 2 to m - 1 do
    if (m mod i) = 0 then p := false;
  IsPrime := p
end;

var
  n, i, j: integer;
  flag: boolean;

begin
  repeat
    Write('Введите натуральное число, большее 2 :');
    Readln(n);
    flag := (n < 2) or (n mod 2 = 1);
    if flag then
      Writeln('Число введено с нарушением, повторите ввод');
  until not flag;
  Writeln('Варианты представления числа в виде суммы двух простых:');
  for i := 1 to n do
    for j := 1 to (n div 2) do
      if (IsPrime(i) and IsPrime(j)) and (i + j = n) then writeln(i, '+', j);
end.

Тестовое решение:

Введите натуральное число, большее 2: 110
Варианты представления числа в виде суммы двух простых:
67+43
73+37
79+31
97+13
103+7
107+3
109+1