Треба до по задічі з інформатикі яку потрібно написати на мові Pascal.
Ось задача: Визначити яку платню одержить фірмі сумісник за виконану роботу якщо йому нараховано s грн а податок становить 10 відсотків.

Visual Studio 2017 C++

#include "stdafx.h"
#include <iostream>
#include <fstream>
using namespace std;
int main()
{
ifstream read_file("input.txt");
ofstream write_file("output.txt");
int x, y;
read_file >> x >> y;
if (x == 1 && y == 1) { write_file << "0" << endl; return 0; }
if (x == 1 || y == 1) { write_file << "1" << endl; return 0; }
if (x!=y) { write_file << "1" << endl; return 0; }
if (x == y) { write_file << "2" << endl; return 0; }
return 0;
}

Алгоритм:
for j := 1 to N do
if (8 <= a[j]) and (a[j] <= 63) and (a[j] div 8 < a[j] mod 8) then k:=k + 1

for j := 1 to N  - перебор всех элементов массива
(8 <= a[j]) and (a[j] <= 63) - восьмеричная запись чисел от 8₁₀ до 63₁₀  содержит ровно две цифры 
(a[j] div 8 < a[j] mod 8) - первая (старшая) цифра меньше второй (младшей) при восьмеричная запись чисел от 8₁₀ до 63₁₀
k:=k + 1 - счётчик количества элементов массива соответствующих условиям

Программа целиком:
const N=40;
var a: array [1..N] of integer;
i, j, k: longint;
begin
for i:=1 to N do
readln(a[i]);
for j := 1 to N do
if (8 <= a[j]) and (a[j] <= 63) and (a[j] div 8 < a[j] mod 8) then k:=k + 1;
writeln('Количество элементов массива, восьмеричная запись которого содержит ровно две цифры, причем первая (старшая) цифра меньше второй (младшей), равно: ',k);
end.