Плз помогите… составить программу на языке авс паскаль 1) напишите программу,…

//первая программаvar a,b: integer; begin write ('a='); readln (a); write ('b='); readln (b); writeln ('Max (', a, ', ', b, ')=', (a+b+abs (a — b) / 2); end. //вторая программаvar n: integer; begin write ('n='); readln (n); writeln ('Следующее четное число ', n+2 — (n+2) mod 2); end.