Програма, яка визначає чи є число простим: program proste_chislo; var n,k,i: integer; begin writeln ('vvedit chislo'); readln (n); k:=0; for i:=2 to n div 2 do begin if n mod i =0 then k:=k+1; end; if (k>0) then writeln ('neproste') else writeln ('proste'); readln end.