Найти простые числа - QBasic

program prostiechisla;
uses Crt;
type
  SetOfNum = set of 1..255;
var
  n1,next,I: word;
  BeginSet,PrimerSet: SetOfNum;
  K:integer;
begin
  ClrScr;
  Write(‘введите K’);
  Readln(K);
  BeginSet:=[2..K];
  PrimerSet:=[1];
  next:=2;
  While BeginSet <> [] do
    begin
      n1:=next;
      while n1 <= K do
        begin
          Exclude(BeginSet,n1);
          n1:=n1+next;
        end;
      Include(PrimerSet,next);
      repeat
        inc(next)
      until (next in BeginSet) or (next > K)
    end;
  Writeln(Простые числа из первых' ,K,' чисел');
  for i:=1 to K do
    if i in PrimerSet then Write(i:4);
    Readln;
end.

Program chislairyada;
var x, y, z : real;
n, i : integer;
begin
repeat
writeln('Введите переменную ряда x, |x|<1, x=');
readln(x);
write('Введите число членов ряда n=');
readln(n);
until (abs(x)<1) and (n>0);
y:=1; z:=1;
for i:=2 to n do
begin
z:=z*x;
y:=y+z/i;
end;
writeln('Сумма первых n членов ряда y =', y);
end.

end.
readln;
if k>0 then write(‘Последовательность меняет знак’,k,’раз’)
else write(‘не меняет’);
until new=0;                                      
readln(new);
ld:=new;
write(‘введите число’);
o
if new*old<0 then k:=k+1
repeat   
k:=0;
readln(new);
write(‘введите число’);
readln(old);                                       
write(‘введите число’);                    
ClrScr;                                                
begin
k:integer;
Var old, new:real;                              
Uses Crt;                                            
Program znak;

Program stroki;
Uses Crt;                                                         
Var S1,S2,work:string;                                                  
i,j,L:word;
begin
ClrScr;                                                          //очистка экрана
Work:=’ABCDEFGHIKLMNOPQRSTUVWXYZ’; 
S1:=’’;                                                                          
S2:=’’;                    
L:=length(work);                                                   
for i:=1 to 20 do                       
for j:=1 to i do                          
begin
S1:=S1+work[i];                                   
End;
For i:=21 to L do
For j:=1 to I do
Begin
S2:=S2+work[i];                                   
End.
Readln;                                              
Write(s2);
Write(s1);                                             
End;

Program dvmassiv;
Uses crt;
Const
M=4;
K=5;
T=6;
Var
i, j, n:byte;
a: array [1..m] of array [1..k] of integer;
b: array [1..m] of array [1..t] of integer;
c: array [1..m] of array [1..k+t] of integer;
begin
ClrScr;
Randomize;
Begin
Write(‘Первый массив’);
For i:=1 to m do
For j:=1 to k do
A[i,j]:=random(100*1)-50;
Write(a[i,j]:6,’ ‘);
End;
Begin
Write(‘Второй массив’);
For i:=1 to m do
For j:=1 to t do
B[i,j]:=random(100*1)-50;
Write(b[i,j]:6,’ ‘);
End;
Begin
Write(‘Третий массив’);
For i:=1 to m do
For j:=1 to k do
C[i,j]:=a[i,j];
Begin
For i:=1 to m do
For j:=k to k+t do
C[i,j]:=b[i,j];
End;
End;
Write(c[i,j]:6,’ ‘);
For i:=1 to m-1 do
For j:=1 to (k+t)-i do
If c[1,j]>c[1,j+1]  then
Begin
N:=c[1,j];
C[1,j]:=c[1,j+1];
C[1,j+1]:=n;
End;
For i:=1 to m do
For j:=1 to k+t do
Write(‘Конечный массив’);
Writeln;
Write(c[i,j]:6,’ ‘);
Readln;
Readkey;
End.