uses edit;
var
  Edit1: TEditBox;
  i: integer;

begin
for i := 1 to 50*80 do write(#176);

Edit1.Init(50, 10, 10);
{??????????? ??????}
Edit1.caption:= 'Enter value: ';
Edit1.Text:= '0';
Edit1.txtcolor:= 15;
Edit1.SetFilter(144);
If Edit1.execute then
  Writeln (Edit1.Text);

Edit1.Done;
end.