вывести все простые трехзначные числа через паскаль
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.
Вот что у меня получилось, что мне еще нужно дописать?