Определить, является ли число, введенное с клавиатуры простым В системе Паскаля

Question

Определить, является ли число, введенное с клавиатуры простым
В системе Паскаля

Comments

что такое "простое число в системе паскаля"?

---

Надо это все написать в системе Паскаля

Answer 1

Var  i,a:integer;  
       b:boolean:=true;
begin 
  write('Введите число = '); 
  readln(a); 
  for i:=2 to round(sqrt(a)) do    
     if a mod i = 0 then begin b:=false; break; end; 
  if b then writeln('Число ',a,' является простым') 
  else writeln('Число ',a,' не является простым')
end.

Comments

А можно более простым способом?

---

что то он тут намудрил

---

Что непонятно?