Дано число n проверить является ли оно нечетным трехзначным числом
pascal

program TestN;

var

 n: Integer;

begin

 Write ('Введите N: ');

 ReadLn (n);

 if (n >= 100) and (n <= 999) and (n mod 2 <> 0) then

   WriteLn (N, ' является нечетным трехзначным числом.')

 else

   WriteLn (N, ' не является нечетным трехзначным числом.');

 ReadLn;

end.

Объяснение:

Writeln('Введите число');

readln(n);