напишите программу которая получает с клавиатуры натуральное число которое больше 1

program simple_num;

var n:integer;

function simple(num:integer):boolean;

var count, i:integer;

   key:boolean;

begin

   count := 0;

   i := 1;

   repeat

       if num mod i = 0 then

           inc(count);

       inc(i);

   until (i gt; num);

   if count gt; 2 then

       key := false

   else key := true;

   simple := key;

end;

begin

   writeln('Введите естественное число больше 1');

   readln(n);

   if n gt; 1 then

       if simple(n) then

           writeln('Число ',n, ' обычное')

       else writeln('Число ',n, ' сложное')

   else writeln('введено число наименее 1');

end.