В Паскале в самой проге необходимо записать процесс перевода одной ед.измерения(Кдж) в другую (Дж)
Как записать в Паскале перевод 140 кдж в дж(какие команды
использовать?),Help

#include <iostream>
using namespace std;
int main()
{ 
   for(int i = 10; i < 100; i++) 
  {     
          if(i/10 == 2*(i%10))   
              cout << i << " ";
   }   
           return 0;
}
Пример на С++ 
Но если надо на другом языке, то суть такова:
1)запускаешь цикл от 10 до 99(все двузначные числа) со счетчиком i например
2)внутри условие если i деленный нацело на 10(1 цифра этого числа )равен  удвоенному значению остатка от деления i на 10 ( последняя цифра числа в 2 раза больше 1 должна быть)
то на экран выводится это число i 

#include <iostream>

using namespace std;

int main()
{
    int m, n;

    // Выделение памяти и ввод матрицы
    cout << "m = ";
    cin >> m;
    cout << "n = ";
    cin >> n;

    int **matrix = new int*[m];
    for (int i = 0; i < m; ++i)
    {
        matrix[i] = new int[n];
        for (int j = 0; j < n; ++j)
            cin >> matrix[i][j];
    }

    // Вычисление суммы элементов каждого столбца. Определение наибольшего
    // значения этих сумм и номер соответсвующего столбца
    int sum, max_sum = INT_MIN, max_column;
    for (int j = 0; j < n; ++j)
    {
        sum = 0;
        for (int i = 0; i < m; ++i)
            sum += matrix[i][j];
        cout << "Column " << j << " - sum " << sum << endl;
        
        if (sum > max_sum)
        {
            max_sum = sum;
            max_column = j;
        }
    }
    cout << "Max sum in column " << max_column << ". Max sum is " << max_sum << "." << endl;

    // Удаление матрицы
    for (int i = 0; i < m; ++i)
        delete[] matrix[i];
    delete[] matrix;
}