Вывести все простые трехзначные числа через паскаль program z5; uses crt; var x, i, k :...

Question

Вывести все простые трехзначные числа через паскаль
program z5;
uses crt;
var x, i, k : integer;
begin
for i:=100 to 999 do
for x:=1 to i-100 do
if i mod x=0 then k:=k+1;
if k=2 then writeln('Да') else writeln ('Нет')
end.
Вот что у меня получилось, что мне еще нужно дописать?

Answer 1

Var i,a,k: integer;
begin
for a := 100 to 999 do
begin
k:=0;
for i:=2 to a div 2 do
if a mod i = 0 then k := k + 1;
if k = 0 then write(a, ' ');
end;
end.