Напишите программу(паскаль) запрашивает с клавиатуры у пользователя размер хищений (р.), определяет и выводит на экран масштаб в соответствии с принятой классификацией (например, если размер хищений меньше 100 р. –«мелкий», от 100 до 1000 – «крупный», свыше 1000 – «особо крупный»

//PascalABC.NET 3.2 сборка 1318

Var
  a:real;
begin
readln(a);
if a  writeln(Мелкий)
    else
      if (a>=100) and (a        writeln(Крупный)
          else
            writeln(Особо крупный);
end.

Пример ввода:
1001
Пример вывода:
Особо крупный