MODULE Console;
 
IMPORT
  Windows, SYSTEM;
 
VAR  
  hin, hout: Windows.HANDLE;
 
PROCEDURE ReadString*(VAR str:ARRAY OF CHAR);
VAR
  n,i,c:LONGINT;
BEGIN
  n:=LEN(str);
  i:=0;
  SYSTEM.PUTREG(0, Windows.ReadFile(hin, str, n, n, NIL));
  str[n-2]:=0X; (* - 0AX 0DX *)
 
  (* Конвертируем русские символы *)
  WHILE i<n DO
    c:=ORD(str[i]);
    IF    (c>=192) & (c<=239) THEN c:=c+16;
    ELSIF (c=240)             THEN c:=168;
    ELSIF (c=241)             THEN c:=184;
    ELSIF (c=168)             THEN c:=232;
    END;
    str[i]:=CHR(c);
    INC(i);
  END;
 
END ReadString;
 
BEGIN
  hin := Windows.GetStdHandle(Windows.STD_INPUT_HANDLE);
  hout:= Windows.GetStdHandle(Windows.STD_OUTPUT_HANDLE);
END Console.

PROCEDURE Length*(str:ARRAY OF CHAR): LONGINT;
VAR
  n,i,c:LONGINT;
BEGIN
  n:=LEN(str);
  i:=0;
  WHILE (i<n) & (str[i]>0X) DO INC(i); END;
  RETURN i;
END Length;

Межзвездная матеpия вращает экваториальный дип-скай объект, 
хотя галактику в созвездии Дракона можно назвать карликовой. 
Радиант перечеркивает терминатор, тем не менее, Дон Еманс включил в список всего 82-е Великие Кометы.
Противостояние последовательно. 

Межзвездная матеpия вращает экваториальный дип-скай объект, 
хотя галактику в созвездии Дракона можно назвать карликовой. 
Радиант перечеркивает терминатор, тем не менее, Дон Еманс включил в список всего 82-е Великие Кометы.
Противостояние последовательно.