Впаскале. дано натуральное число n. определить, на сколько сумма первой и последней цифр заданного числа меньше произведения первой и последней цифр этого же числа.

Var
   n,c:integer;
Begin
Write('n = ');ReadLn(n);
c:=n mod 10;
While n div 10 > 0 do
   n:=n div 10;
WriteLn(n*c-(n+c))
End.

Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace pzn
{

    class Program
    {
       public static void Main(string[] args)
        {
            int x = Convert.ToInt32(Console.ReadLine());
            int y = Convert.ToInt32(Console.ReadLine());
            int temp;
            if (x<y)
            {
                x ^= y;
                y ^= x;
                x ^= y;    
            }
            Console.WriteLine("x={0}, y={1}", x, y);
            Console.ReadKey();
        }
    }
}

Так как язык не указан, приведу пример на SWI-Prolog.

Код:

read_int(Int) :- read(Int), integer(Int).split_int_by_numbers(0, []) :- !.split_int_by_numbers(N, [Number|Ints]) :- Number is mod(N, 10), RestN is div(N, 10), split_int_by_numbers(RestN, Ints).test_to_div(_, []).test_to_div(N, [Number|Ints]) :- mod(N, Number) =:= 0, test_to_div(N, Ints). test(Int) :- split_int_by_numbers(Int, Numbers), test_to_div(Int, Numbers), write(Int), write(" - Yes!"), nl.test(Int) :- write(Int), write(" - No!"), nl.?- read_int(Int), test(Int).