Написать подпрограмму возведения любого числа в целую неотрицательную степень. С ее помощью вычислить, сколько байтов содержится в килобайте, мегабайте и в гигабайте. Pascal ABC

Function Pow (m, n:integer) : longint;

var

i:byte;

p:longint;

begin

p:=1;

for i:=1 to n do p:=p*m;

Pow:=p

end;

begin

Writeln ('1 Кбайт=', Pow (2,10),' байт') ;

Writeln ('1 Мбайт=', Pow (2,20),' байт') ;

Writeln ('1 Гбайт=', Pow (2,30),' байт') ;

end.