begin
var (m, p) := ReadInteger2('Укажите число и показатель степени:');
if p = 0 then
Write(1)
else
begin
var z := Sign(p);
p := Abs(p);
var r: int64 := m;
for var i := 2 to p do
r *= m;
if z > 0 then
Write(r)
else
Write(1 / r);
end;
end.
==PascalABC.NET==
var
i,a,b:integer;
begin
randomize;
readln(a,b);
for i:=1 to 5 do
write(random(b-a+1)+a,' ');
end.
Определим размер изображения 2362*3543=8368566 пикс.
Определим информационный объём файла 3*8368566=25105698 байт. Переведён в более крупную единицу: 25105698/1024=24517,28Кбайт
Ещё в более крупную: 24517,28/1024=23,98Мбайт. Можно округлить и получим 24 Мбайт