Подскажите решение, ( в программе 1с)

за многие годы узник замка иф проделал в стене прямоугольное отверстие
размером d×e. замок иф сложен из кирпичей, размером a×b×c. определите, сможет
ли узник выбрасывать кирпичи в море через это отверстие (очевидно, стороны
кирпича должны быть параллельны сторонам отверстия).

в программе 1с нужно выполнить решение

наименьшее 4-х разрядное число в системе счисления с основанием 5 = 1000₅.

наибольшее 4-х разрядное число в системе счисления с основанием 5 = 4444₅.

переведем эти числа в десятичную систему счисления:

1000₅= 5³ = 125

4444₅ = (10000₅ - 1₅) = 5⁴ - 1 = 624

количество всех 4-х разрядных чисел в системе счисления с основанием 5 равно: 624 - 125 + 1 = 500

ответ. 500. 

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

в феврале 1946 года был создан первый компьютер.