Готово.Если что-то объяснить надо, пишите.
Если хочешь, чтобы проги выдавали только число, убери из них строку <span>Write(N,'! + ');</span>
600*800*24=11520000 бит = 1140000 байт = 1406,25 Кб = 11,34 Мб
<em>1</em><span><em> Гб=1024Мб </em></span><em>1Мб=1024Кб 1Кб</em><span><em>=1024 байта </em></span><em>1</em><span><em> байт= 8 бит</em></span>
Program stepen;
Var a: real; b, i, n: integer;
Begin
Readln (a, n);
b:=a;
For i:=2 to n do
a:=a*b;
Writeln(a);
Readln;
End.