1)даны три числа вывести большее. 2)дано число вывести правдиво либо не

1.
var  a, b, c: integer;
begin 
write('Введите первое число: '); 
readln(a); 
write('Введите 2-ое число: '); 
readln(b); 
write('Введите третье число: '); 
 readln(c);   
 if (a gt; b) and (a gt; c) then    writeln(a); 
  if (b gt; a) and (b gt; c) then    writeln(b);   
   if (c gt; a) and (c gt; b) then    writeln(c);
end.

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

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

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