Необходимо составить программу по блок-схеме!!!!)

Я здесь решил попробовать вспомнить ветхое, но как досадно бы это не звучало не вышло всё сделать верно, вроде код ниже верный, но где написано перед строчкой "//" это я пометил, что не знаю как там писать. Пробуй сам поменять/дописать код:

program hello;
var
n, kd, d:integer;
begin
read(n);
kd:=0;
// d:=2...[sqrt(n)];
if n mod d = 0 then
kd:=kd+1
else
// d:=2...[sqrt(n)];
begin
if kd = 0 then
writeln('выв "простое"')
else
writeln('ыв "составное"')
end;
end.