Создайте программу в pascalabc. выводится выражение (если можно рандомное) ,если в вводишь правильный ответ + 1 было выражений должно быть 7-8

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(7,1,99);   var b: =arrrandom(7,1,99);   var c: =arrrandom(7,1,2);   var k: =0;   var r,x: integer;   for var i: =0 to 6 do begin       write(a[i]);       if c[i]=1 then begin write(' + '); r: =a[i]+b[i] end       else begin write(' - '); r: =a[i]-b[i] end;       write(b[i],' = '); read(x);       if x=r then k+=1       end; // for   writeln('верных ответов: ',k) end. пример 77 - 21 = 56 53 - 97 = -44 91 + 51 = 142 42 - 65 = -23 70 + 78 = 148 91 - 5 = 86 45 + 41 = 86 верных ответов: 7

Var  n1,n2,r,k,i: integer; begin randomize; k: =0; for i: =1 to 7 do   begin   n1: =random(90)+10;   n2: =random(90)+10;   write(n1,' + ',n2,' = ');   readln(r);   if r=n1+n2 then k: =k+1;   end; writeln('k = ',k); end. пример: 98 + 59 = 157 18 + 99 = 117 23 + 47 = 70 16 + 21 = 35 38 + 62 = 100 16 + 81 = 97 54 + 28 = 82 k = 6