1)Составить программу нахождения наибольшего общего делителя НОД. Составить блок-схему
2)Составить программу решения примера
1+2+4+6+8..

program pr1;var x,y, nod:integer;beginreadln(x,y);repeatif x > y then x:=x mod yelse y:=y mod xuntil x*y=0;nod:=x+y;writeln('НОД=', nod);end.program pr2;var i,n,sum:integer;beginreadln(n);sum:=1;for i:=1 to n doif i mod 2 = 0 then inc(sum,i);writeln(sum);end.