Мистер Фокс разгадывает загадку. На бумаге должно быть 9 чисел в таблице 3 на 3. Все числа различаются друг от друга. Случилась неприятность, на центральное поле попала вода. После этого прочесть её никак не получается. Мистер Фокс знает, какие действия над числами совершались в таблице.
1. Сортируем второй столбец по возрастанию.
2. Прибавляем к первой строке вторую.
3. Сортируем первую строку по возрастанию.
4. Вычитаем из второй строки третью
5. Сортируем все столбцы по убыванию
найти неизвестное число, если после всех действий получилась новая таблица:

Program n1;
var x: integer;
begin
    writeln('Введите число');
    readln(x);
    if (x mod 10 = 5) or (x mod 10 = -5) then
        writeln('Число оканчивается на 5')
    else
        writeln('Число не оканчивается на 5');
end.

program p2;
var x, y, sum: integer;
begin
    writeln('введите число');
    readln(x);
    if ((x >= 10) and (x <= 99)) or ((x <= -10) and (x >= -99)) then
        writeln('является двузначным')
    else
        writeln('не является двузначным');
    y := abs(x);
    sum := 0;
    while (y <> 0) do
        begin;
        sum := sum + (y mod 10);
        y := y div 10;
        end;
    if sum = 8 then
        writeln('сумма цифр равна 8')
    else
        writeln('сумма цифр не равна 8');
end.

Горячие клавиши
Инструменты:
A — Аэpогpаф (AirBrush)
В — Кисть (Brush)
С — Рамка (Crop)
E — Ластик (Eraser)
F — Режим (окно/весь экpан с меню/весь экpан без меню)
G — Гpадиент (Gradient)
H — Рyка (Hand)
I — Пипетка (Eyedropper)
K — Заливка (Paint Bucket)
L — Лассо (Lasso)
М — Область (Marquee)
N — Линия (Line)
O — Тониpование (Toning Tools)
P — Каpандаш (Pencil)
Q — Быстpая маска (Quick Mask)
R — Фокyс (Focus Tools)
S — Штамп (Stamp)
T — Палитpа контypы (Path)
U — Палец (Smudge Tool)
V — Пеpемещение (Move)
W — Волшебная палочка (Magic Wand)
Y — Текст (Text)
Z — Масштаб (Zoom)
X — Поменять местами фоновый и основной цвета
D — Сбросить цвет/фон в черный и белый
[ - Пpедyдыщая кисть
] — Следyющая кисть