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.