Нужен ключ для активацыи windows 8.1 професионал

Gcrjd-8nw9h-f2cdx-ccm8d-9d6t9hmcnv-vvbfx-7hmbh-cty9b-b4fxyng4hw-vh26c-733kw-k6f98-j8ck4yd73m-bpnm8-kyrrw-98yww-82m93xnx4y-ff72w-w8xp6-c6y8k-kp9hd

Var   i,s: integer;   begin   s: =0;   for i: =1 to 5 do s: =s+i;   writeln('for: ',s);   s: =0; i: =1;   while i< =5 do begin       s: =s+i;       i: =i+1       end;   writeln('while: ',s);   s: =0; i: =1;   repeat       s: =s+i;       i: =i+1   until i> 5;   writeln('repeat: ',s) end. результат for: 15 while: 15 repeat: 15

// pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! begin   var (p,q,s): =(1,2,0);   var k: =0;   write('(1,5) ');   for var i: =3 to 1000 do begin       var (flag,j,r): =(true,2,round(sqrt(;       while flag and (j< =r) do           if i mod j = 0 then flag: =false           else j+=1;       if flag then begin           (p,q,s): =(q,s,i);           if q-p=4 then write('(',p,',',q,') ')           else               if s-p=4 then write('(',p,',',s,') ')           end       end end. результат (1,5) (3,7) (7,11) (13,17) (19,23) (37,41) (43,47) (67,71) (79,83) (97,101) (103,107) (109,113) (127,131) (163,167) (193,197) (223,227) (229,233) (277,281) (307,311) (313,317) (349,353) (379,383) (397,401) (439,443) (457,461) (463,467) (487,491) (499,503) (613,617) (643,647) (673,677) (739,743) (757,761) (769,773) (823,827) (853,857) (859,863) (877,881) (883,887) (907,911) (937,941) (967,971)