PROGRAM Procedury1; USES Crt; VAR x : Integer; Zn : Char; PROCEDURE Wypisz; { Definicja procedury } BEGIN Write('Wpisales : '); WriteLn(x:3); END; BEGIN ClrScr; Write('Podaj liczbe : '); ReadLn(x); Wypisz; { Wywołanie procedury } Zn:=ReadKey; END.