1.: Составить программу. Ввести 2 числа. Вычесть из большего меньшее. Еще составить…

program z1; var a,b,c: integer; beginwrite ('a='); readln (a); write ('b='); readln (b); if a>b then c: =a-b else c: =b-a; writeln ('c=',c); end. program z2; var a,b,c: integer; beginwrite ('a='); readln (a); write ('b='); readln (b); write ('c='); readln (c); if (a mod 2)=0) or (b mod 2)=0) or (c mod 2)=0) then writeln ('четное') else writeln ('нечетное'); end.