Программирование / Лабораторные / ЭВТ-1-Паскаль / LABA4_2

program GSA; { ‚лзЁб«Ёвм ¤«п n ў«®¦Ґ­Ё© (...(x+a)^9+a)^9+a)^9+...)^9+a }
{ §­ зҐЄ ^9 - §­ зЁв ў ¤Ґўпв®© б⥯Ґ­Ё }
uses crt;
var i:integer; { ‚бЇ®¬®Ј вҐ«м­лҐ ЇҐаҐ¬Ґ­­лҐ }
x,a:real; { –лдал ¤«п ўлзЁб«Ґ­Ё© }
n:integer; { Љ®«ЁзҐбвў® ў«®¦Ґ­Ё© }
s:real; { ‚лзЁб«Ґ­ЁҐ (б㬬 ) }

BEGIN
clrscr;
textcolor(red);
writeln(' Ќг¦­® ўлзЁб«Ёвм ¤«п n ў«®¦Ґ­Ё© (...(x+a)^9+a)^9+a)^9+...)^9+a ');
writeln(' §­ зҐЄ ^9 - §­ зЁв ў ¤Ґўпв®© б⥯Ґ­Ё');
textcolor(white);
write('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® ў«®¦Ґ­Ё© n=');
readln(n);
write('‚ўҐ¤ЁвҐ x= ');
readln(x);
write('‚ўҐ¤ЁвҐ a=');
readln(a);
{x:=0; a:=1;}
s:=x;
for i:=1 to n do s:=exp(9*ln(s+a));
s:=s+a;
writeln(' ђҐ§г«мв в ўлзЁб«Ґ­Ё© = ',s:8:3);
readln;
END.