Две задачи по порядку)
1)
program example1;
var a,b,c,d,i:integer;
begin
for i:=1000 to 9999 do
begin
d:= i mod 10; //4
c:= i div 10 mod 10; //3
b:= i div 100 mod 10; //2
a:= i div 1000; //1
if ((a=d) and (b=c)) then write (i:5);
end;
end.
2)
program example2;
var a,b,c,d,i:integer;
h,j,k,l:boolean;
begin
write ('Введите четырехзначное число '); readln(i);
d:= i mod 10; //4
c:= i div 10 mod 10; //3
b:= i div 100 mod 10; //2
a:= i div 1000; //1
if (a<>0) and (a<>5) then write(a) else write('');
if (b<>0) and (b<>5) then write(b) else write('');
if (c<>0) and (c<>5) then write(c) else write('');
if (d<>0) and (d<>5) then write(d) else write('');
end.
В бизнесе генеральный директор четко распределяет обязанности между подчиненными. Одни занимаются построением определенной последовательности действий, другие, подчиняясь этому течению, расширяют и дополняют его необходимой информацией, чтобы в итоге получить необходимый результат.
Когда мы рождаемся, родители вкладывают в нас программу, по которой мы слепо следуем, пока не вырастем. Но будучи чуть постарше, начинаем развивать некий алгоритм внутри себя, чтобы как-то проявиться, добиться высот.
Человек, который составляет программы, должен в голове моделировать алгоритм будущего решения. Если же он не обладает достаточным опытом, то и результат может оказаться другим.