---

program SafeInputDemo;

{$mode objfpc}{$H+}
{$codepage UTF-8}

uses
  heaptrc, 
  {$IFDEF UNIX}cwstring,{$ENDIF}
  SysUtils,
  SafeInput;

var
  Age: Integer;
  Height: Double;
  Grade: Integer;

begin
  // 1. Запрос возраста через ReadInteger
  Age := ReadInteger('Введите возраст: ');
  WriteLn;

  // 2. Запрос роста через ReadFloat
  Height := ReadFloat('Введите рост (м): ');
  WriteLn;

  // 3. Запрос оценки через ReadIntegerInRange
  Grade := ReadIntegerInRange('Введите оценку (1-5): ', 1, 5);
  WriteLn;

  // Вывод финального итога в одну строку
  WriteLn('=== Результат ===');
  WriteLn('Возраст: ', Age, ', рост: ', Height:0:2, ' м, оценка: ', Grade);
  
  ReadLn;
end.