Найдите количество двузначных чисел, которые делятся на сумму своих цифр.

program xxx;

   var i, k, d, e, s : integer;

begin

  k:=0;

 for i:= 10 to 99 do

   begin

      d:= i div 10;

      e:= i mod 10;

      s:=d + e;

      if i mod s = 0 then k:=k+1

   end;

   write ('кол-во чисел которые делятся на сумму своих цифр=', k);

   readln

end..

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

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;

           }

       }

   }

}