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

//Pascal

var a, b, c: real;
begin
  write('Введите a: '); readln(a);
  write('Введите b: '); readln(b);
  write('Введите c: '); readln(c);
  if (a > b) and (a > c) then writeln('a - наибольшее число = ', a);
  if (b > a) and (b > c) then writeln('b - наибольшее число = ', b);
  if (c > a) and (c > b) then writeln('c - наибольшее число = ', c);
end.


var N: integer;
begin
write('Введите число: '); readln(N);
if N mod 2 = 0 then writeln('Четное')
else writeln('Не четное');
end.