Дано натуральное число n. Определить является ли оно простым или составным. Простым...

Question

Дано натуральное число n. Определить является ли оно простым или составным. Простым называется число, которое не имеет делителей кроме 1 и самого себя. Например, 17 и 43 - простые числа.Для решения задачи приведена программа с пропущенными строками. Необходимо в ответе записать содержание пустых строк, которое сделает программу правильной. Количество и расположение строк не менять.
Program Task;
Uses CRT;
Var n,i:integer;
b:boolean;
Begin
repeat
write('Число='); readln(n);
until n>0;
b:=true;
пропущена строка надо чтото записать
repeat
снова пропущена строка и надо что то записать
i:=i+1
снова пропущена строка и надо что то записать
if (b) then writeln('Простое') else writeln('Составное');readlnEnd.
Помогите плиз ато я в паскале вообще ноль вот только только начал изучать!

Answer 1

Я бы так написал:
var n,i:longint;
     b:boolean;
begin
  repeat
    write ('Число = ');
    readln(n);
  until n > 0;
  b:=false;
  for i:=2 to n div 2 do
   if n mod i = 0 then
    begin
      b:=true;
      break;
    end;
  if (not b) and (n <> 1) then writeln ('Простое') else writeln ('Составное');
  readln;
end.