Составьте пожалуйста 3 программы выполнения простейших действий

1) Cложение двух чиселvar a,b: integer; beginreadln (a,b); writeln (a+b); end. 2) Нахождение макс. Числа из двухvar a,b: integer; beginreadln (a,b); if (a>b) then writeln (a) elsewriteln (b); end. 3) Является ли число четнымvar a: integer; beginif (a mod 2=0) then writeln ('Число', a,'яляется четным); elsewriteln ('Число',a, ' не является четным); end.