На паскале Вводится натуральное число. Заменить в его записи все цифры 5 на цифру 1 2)Вводится натуральное число N и цифра k. Сформировать новое число, получаемое из N путем приписывания к нему цифры k в начале и в конце. 3)Вводится натуральное число. Перед каждой цифрой числа вставить его копию. (123 112233) 4)Вводится натуральное число. Поменять местами цифры единиц и десятков, сотен и тысяч, десятков тысяч и сотен тысяч и т.д. Если длина записи числа нечетна, то для старшей цифры нет пары и она остается без изменений. (1234 2143)

1)

program hesf;

var

a,b:integer;

begin

b:=1;

readln(a);

if a=5 then

writeln(b);

begin

if a=1 then

writeln(a);

end;

end.

Честно, не поняла ваш код вообще. Почему нет цикла? Предлагаю свое решение:
1)Cначала заполняем массив случайными числами от 2 до 5 (включительно)
2)Потом выводим его (Для проверки)
3) Потом считаем оценки. Но сначала нужно обнулить переменные( В самом начале это делали), а то получится кака (:

program N_0547847;
var
    b, c, d, f, i:integer;
    a: array [1..20] of integer;
begin;
randomize;
b:=0; c:=0; d:=0; f:=0;
for i:=1 to 20 do begin
  a[i]:=random(4)+2; 
  write(a[i],' '); end; 
writeln;
for i:=1 to 20 do begin
    if a[i]=2 then  b:=b+1;
    if a[i]=3 then  c:=c+1;
    if a[i]=4 then  d:=d+1;
    if a[i]=5 then   f:=f+1;
end;
writeln('Двоек: ', b); 
writeln('Троек: ', c); 
writeln('Четверок: ',d);
writeln('Пятерок: ',f);
end.   

в кинозале всего 16×32=512 мест. Сообщение о купленном билете однозначно определяет выбор одного из этих мест. Из уравнения 2 i = 512=29получаем: i=9 бит. Но эту же задачу можно решать иначе. Сообщение о номере ряда несет 4 бита информации, т.к. 24=16. Сообщение о номере места несет 5 бит информации, т.к. 25=32. В целом сообщение про ряд и место несет: 4+5=9 бит информации. Данный пример иллюстрирует выполнение закона активности информации (правило сложения): количество информации в сообщении одновременно о нескольких результатах независимых друг от друга событий равно сумме количеств информации о каждом событии отдельно.