конспект на тему клавиатура!!6 класс!​

Program project1; var m: array of integer; n, i, old, simple: integer; function nod (var a,b: integer): integer; var c: integer; begin   repeat       if a > b then           a : = a mod b       else           b : = b mod a;   until (a = 0) or (b = 0);   nod : = a + b; end; function issimple(const n: integer): boolean; var i: integer; begin   issimple: =true;   for i: =0 to length(m)-1 do begin       if (n mod m[i])=0 then begin           issimple: =false;           break;       end;   end; end; begin   repeat       write('n: '); readln(n);       setlength(m, length(m)+1);       m[length(m)-1]: =n;   until n< =0;   setlength(m, length(m)-1);     old: =nod(m[0], m[1]);   for i: =2 to length(m)-1 do       old: =nod(old, m[i]);   writeln('nod: ', old);   simple: =0;   for i: =0 to length(m)-1 do       if issimple(m[i]) then           inc(simple);   writeln('simple: ', simple);   readln; end. нахождение нод всех чисел это нод(нод(а, б), в) и т.д. остальное думаю понятно.