Если будут где-то ошибки извините ,возможно в знаках)) проверьте в паскале ,если что напишите
program prazdnik; var a : integer ; begin readln(a); if a=1 then writeln ('пишите сюда праздиники в первый месяц,какие нужны'); if a=2 then writeln ('сюда то чт ово второй '); if a=3 then writeln (' третий ') ; if a=4 then writeln (' четвертый месяц с его праздниками'); if a=5 then writeln (' пятый месяц'); if a=6 then writeln (' шестой месяц'); if a=7 then writeln (' седьмой месяц'); if a=8 then writeln (' восьмой'); if a=9 then writeln (' праздники '); if a=10 then writeln ('празники '); if a=11 then writeln (' праздники 11 месяца'); if a=12 then writeln ('двенадцатый'); end.
n, i, a: integer;
p: BigInteger;
begin
p := 1;
Writeln('Введите числа');
Write('a=');
Readln(a);
Write('n=');
Readln(n);
for i := 1 To n Do p := p * a;
writeln(p);
end.