помогите пожалуйста завтра...

помогите пожалуйста завтра кнтрольная. 1)написать программу,которая проверяет является введеное с клавиатуры число четной 2)написать программу даны тричисла а,в,с найти большее

 

 
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.