program Procedura_i_funkcja;
var
   a:real;

{podprogram za pomoca procedury}
procedure Kwadrat(x:real);
var y:real;
begin
   y:=x*x;
   writeln('Wartosc x^2=',y,' obliczone procedura');
end;

{podprogram za pomoca funkcji}
function Szescian(x:real):real;
begin
   Szescian:=x*x*x;
end;

{program glowny}
begin
   writeln('Podaj x=');
   readln(a);
   Kwadrat(a);
   writeln;
   writeln('Wartosc x^3=',Szescian(a),' obliczone funkcja');
   readln;
end.