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.