построить алгоритм возведения числа х в степень n-152.

program gwr;

var x,n,s,i : integer;

begin

s:= 1;

writeln('Введите число, которое нужно возвести в степень: ');

read(x);

writeln('Введите число n');

readln(n);

n := n - 152;

for i := 1 to n do

 s := s*x;

writeln(s);

end.

shift-шифт и caps loct-капс лук

решение на языке pascal

program pr;

var n,a,b,c, sum: integer;

begin

readln (n);

a: =n div 100;

b: =n mod 100 div 10

c: =n mod 10

sum: =a+b+c;

if   sum mod 2 = 0 then writeln ('сумма цифр четная') else writeln('сумма цифр четная');

readln;

end.