Составьте программу, определяющую, является ли данное натуральное число простым. 
Это Паскаль.

uses crt;var x,i,flag:integer;beginclrscr;writeln("x=");read(x);for i:= 1 to xbeginif (x div i )<>0 then flag:=flag+1;end;if (flag = 2)write("chislo prostoe")elsewrite("chislo ne prostoe");readln;end.