Создайте программы в паскале пожалуйста:
С клавиатуры вводится целое число X.
• Выведите все натуральные делители числа X в порядке возрастания (включая 1 и само число).
• Определите, количество делителей числа X не считая 1 и самого числа.
• Определите, является ли введенное число простым.
• Напиши программу, которая выведет на экран простые числа в диапазоне от N до M. N и M – целые числа, которые вводятся с клавиатуры.

тогда минут 15 жди

спасибо

rdy

что такое rdy?

готово

1)Varx, i: integer;beginWrite('Введите X -> ');readln(x);Write(1, ' ');for i:= 2 to x div 2 + 1 do  if x mod i = 0 then    Write(i, ' ');Write(x);end.2)Varx,count, i: integer;beginWrite('Введите X -> ');readln(x);for i:= 2 to x div 2 + 1 do  if x mod i = 0 then    count:= count + 1;Writeln(count);    end.3)Varx, count, i: integer;beginWrite('Введите X -> ');readln(x);for i:= 2 to x div 2 + 1 do  if x mod i = 0 then    count:= count + 1;if count = 0 then Writeln('Простое')else Writeln('Составное');    end.4)Varn,m, i, j: integer;fl:boolean;beginReadln(n,m);For i:= n to m do  begin  fl := true;  for j:= 2 to i div 2 + 1 do    if i mod j = 0 then fl := false;  if (fl) then Write(i, ' ');  end;end.