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

Program a1; var x: integer; begin write ('Введите x: '); readln (x); if x mod 2=0 then writeln ('Это четное число') else writeln ('Это нечетное число'); end. Program a2; var a,b,c: integer; begin write ('Введите 3 числа: '); readln (a, b, c); if a >=b then max: =a else max: =b; if c > max then max: =c; writeln ('Наибольшее число: ', max); end.