Все в прикрепленном файле ​

1)
var k,i,n:integer;
begin
write('k = '); readln(k);
n:=0;
for i:=2 to round(sqrt(k)) do
  if k mod i= 0 then n:=n+1;
if n=0 then writeln(k,' - простое число')
else writeln(k,' - составное число');
end.

Пример:
k = 23
23 - простое число

2)
var a,b,i:integer;
function prost(n:integer):boolean;
var j,m:integer;
begin
m:=0;
for j:=2 to trunc(sqrt(n)) do
 if n mod j = 0 then inc(m);
prost:=m=0;
end;
begin
readln(a,b);
writeln('Простые числа:');
for i:=a to b do
 if prost(i) then write(i,' ');
end.

Пример:
10 30
Простые числа:
11 13 17 19 23 29

3)
var k,i,n:integer;
function prost(n:integer):boolean;
var j,m:integer;
begin
m:=0;
for j:=2 to trunc(sqrt(n)) do
 if n mod j = 0 then inc(m);
prost:=m=0;
end;
begin
readln(k);
i:=2; n:=0;
writeln('Простые числа:');
while n<k do
 begin
 if prost(i) then begin write(i,' '); n:=n+1; end;
 i:=i+1;
 end;
end.

Пример:
10
Простые числа:
2 3 5 7 11 13 17 19 23 29

Verse 1: Amy Lee]
How can you see into my eyes like open doors?
Leadin' you down into my core
Where I've become so numb, without a soul
My spirit's sleeping somewhere cold
Until you find it there, and lead it back home

[Hook: Amy Lee & Paul McCoy]
Wake me up!
Wake me up inside!
I can't wake up
Wake me up inside!
Save me!
Call my name and save me from the dark
Wake me up!
Bid my blood to run
I can't wake up
Before I come undone
Save me!
Save me from the nothing I've become

[Verse 2: Amy Lee]
Now that I know what I'm without
You can't just leave me
Breathe into me and make me real
Bring me to life

[Hook: Amy Lee & Paul McCoy]
Wake me up!
Wake me up inside!
I can't wake up
Wake me up inside!
Save me!
Call my name and save me from the dark
Wake me up!
Bid my blood to run
I can't wake up
Before I come undone
Save me!
Save me from the nothing I've become

[Bridge: Amy Lee & Paul McCoy]
Bring me to life
I've been livin' a lie, there's nothing inside
Bring me to life

[Interlude: Amy Lee]
Frozen inside, without your touch
Without your love, darling
Only you are the life
Among the dead

[Verse 3: Paul McCoy & Amy Lee]
All this time, I can't believe I couldn't see
Kept in the dark, but you were there in front of me
I've been sleeping a thousand years it seems
Got to open my eyes to everything
Without a thought, without a voice, without a soul
Don't let me die here
There must be something more
Bring, me, to, life

[Hook: Amy Lee & Paul McCoy]
Wake me up!
Wake me up inside!
I can't wake up
Wake me up inside!
Save me!
Call my name and save me from the dark
Wake me up!
Bid my blood to run
I can't wake up
Before I come undone
Save me!
Save me from the nothing I've become

[Outro: Amy Lee & Paul McCoy]
Bring me to life
I've been living a lie, there's nothing inside
Bring me to life