var
a:integer;
b:char;
c:string;
begin
readln(a); {ввод целого числа}
readln(b); {ввод символа}
readln(c); {ввод строки}
end.

var a:integer;
begin

 repeat
   read(a);
 until (a<20) and (a>0);
end.

Var
 St : String;
 ii : Integer;
 Code : Integer;

Begin
 Write('input: ');
 Readln(st);
Val(st, ii, Code);
If Code<>0 Then WriteLn('Error : ', Code)
           Else WriteLn('Chislo = ', ii);
End.

k:=readkey;
if (k>chr(1)) and (k<chr(9)) or (k=#13)) then
 че-та делаешь
else
 ниче не делаешь

Function GetKey : Char;
Var Ch : Char;
Begin
Repeat
 Ch:=ReadKey;
Until ((Ch>'0') and (Ch<'9')) or (Ch=#13);
GetKey:=Ch;
End;

Function GetKey : Char;
 Var Ch : Char;
 Begin
   Repeat
     Ch:=ReadKey;
   Until ((Ch>'0') and (Ch<'9')) or (Ch=#13);
   GetKey:=Ch;
 End;

var
s:string;
begin
readln(s);
....

Function CheckNum(St : String) : Boolean;
Var i : Byte;
Begin
CheckNum:=True;
For i:=1 to Length(St) do
 If (St[i]<'0') or (St[i]>'9') then
 Begin
    CheckNum:=False;
    Exit;
 End;
End;

var str:string;
     value,code:integer;
begin
repeat
readln(str);
val (str,value,code);
until code=0;
end.

procedure Inputreal(n_pos:byte;lo,hi:real; var res:real);
var S:string;
     ErrCode:Integer;
     Ch:char;
     flag:boolean;
begin
  repeat
     flag:=false;
     s:='';
     repeat
         ch:=readkey;
         Case ch of
             Bs: if length(S)>0 then Delete(S,length(S),1);
             Enter: if length(S)>0 then flag:=true;
             '0'..'9','.':if length(S)<n_pos then S:=S+ch;
         end;
         gotoxy(1,1);
         clreol;
         write(S);
      until flag;
      val (s,res,errcode);
   until (errcode=0) and (res<=hi) and (res>=lo)
end;

function getinteger(min,max:integer):integer;
var value,code:integer;
    str:string;
begin
 repeat
  readln(str);
  val(str,value,code);
 until (code=0) and ((value>=min) and (value <=max));
 getinteger:=value;
end;

Program Zavison;

Uses DOS;

Procedure NewInt19h;Interrupt;
Begin
End;

Begin
 SetIntVec($19,@NewInt19h);
 While True Do
End.

Program RealZavison;
Begin
 Asm
   CLI
   HLT
 End
End.