// Effectus auto-generated Mad Pascal source code listing
program inpnumPrg;

uses
  Crt, StringUtils, SySutils, CIO;

var
  strBuffer : string;
var
  eff_loop_var : byte;
  eff_cnt : byte;
  eff_string : string;
// Effectus example:
// Input numeric values
// using InputB, InputI and InputC

procedure MAINProc;
var
  key : byte;  // key_byte_array
  n1 : byte;  // n1_byte_array
  n2 : integer;  // n2_byte_array
  n3 : word;  // n3_byte_array
begin
  Write(Chr(125));
  Writeln('');
  eff_string := '';
  Write('Enter BYTE value: ');  // Print 1
  Writeln;
  Readln(n1);
  eff_string := '';
  Write('Enter INT value: ');  // Print 1
  Writeln;
  Readln(n2);
  eff_string := '';
  Write('Enter CARD value: ');  // Print 1
  Writeln;
  Readln(n3);
  Write('', eol, '', eol, 'And data entered is:', eol, '', eol, '');
  eff_string := '';
  Write(n1);  // Print 2
  Writeln;
  eff_string := '';
  Write(n2);  // Print 2
  Writeln;
  eff_string := '';
  Write(n3);  // Print 2
  Writeln;
  key := Get(7);
  ReadKey;
end;

begin
  MAINProc;
end.
