program z_wlasna_funkcja;

var
x,y:integer;

{poczatek funkcji}
function potega(x:integer):integer;
begin
  y:=x*x;
  writeln('Potega ',x,' wynosi ',y);
end;
{koniec funkcji}

begin
  write('podaj x=');
  read(x);
  {wywolanie funkcji}
  potega(x);
  
  repeat until keypressed;
end.

-----------------------------------------

program z_wlasna_funkcja;

var
y:integer;

{poczatek funkcji}
function potega(x:integer):integer;
begin
  y:=x*x;
  writeln('Potega ',x,' wynosi ',y);
end;
{koniec funkcji}

begin
  {wywolanie funkcji}
  potega(5);

  repeat until keypressed;
end.