Я тут решил попробовать вспомнить старое, но увы не получилось всё сделать правильно, вроде код ниже правильный, но где написано перед строкой "//" это я пометил, что не знаю как там писать. Попробуй сам изменить/дописать код:
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.