robool1.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program roboolean;
var k,p,i,n,j :integer;
    ok:boolean;
begin
write('k=');readln(k);
write('p=');readln(p);
i:=p;
n:=0;
repeat
ok:=true;
for j:= 2 to trunc(sqrt(i)) do
    if i mod j=0 then ok:=false;
    if ok then begin
               write(i,' ');
               n:=n+1;
               end;
i:=i+1;
until n=k;
end.