Написать подпрограмму возведения любого числа в целую неотрицательную степень. С ее помощью вычислить, сколько байтов содержится в килобайте, мегабайте и в гигабайте. 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:=pend;begin  Writeln('1 Кбайт=',Pow(2,10),' байт');  Writeln('1 Мбайт=',Pow(2,20),' байт');  Writeln('1 Гбайт=',Pow(2,30),' байт');end.