PROGRAM Procedury2;

USES Crt;

VAR  x  : Integer;
     Zn : Char;
	 
PROCEDURE Wypisz(y : Integer; s : String);      { Procedura z parametrami }
BEGIN
  WriteLn(s, y:3);
END;

PROCEDURE Oblicz(VAR z : Integer);  { Zmiana wartości parametru }
BEGIN
  z:=z*z;
END;

BEGIN
  ClrScr;
  Write('Podaj liczbe : ');
  ReadLn(x);
  Wypisz(x, 'Twoja liczba : ');
  Oblicz(x);
  Wypisz(x, 'Jej kwadrat  : ');
  Zn:=ReadKey;
END.