нужно РАЗВЁРНУТОЕ решение задачи:

Регина составляет 5-буквенные коды из букв Р. Е, Г, И, Н, А. Буквы Р и Г нужно обязательно использовать ровно по одному разу, букву Н можно использовать один раз или не использовать совсем, остальные буквы можно использовать произвольное количество раз или не использовать совсем. Сколько различных кодов может составить Регина?

  я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))

vara: string; b: integer; beginwriteln ('введите строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; while (b = 1) dobeginwriteln ('введіте строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; end;

end. 

а)сумм(a5: b7)

б)срзнач(c4: c7)

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.

var a: array [1..30] of integer;

i: integer;

begin

  for i : = 1 to 30 do

  begin

        a[i]: = 5+5*0.05*(i-1)+2;

        writeln(a[i]);

  end.

end.