1.Напишите программку для решения следующей задачки: Дано целое число. Является ли

Помогите пожалуйста!!!Безотлагательно!!!!!!!!

1.

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


2.
 

var
x:integer;
y:real;
begin
y:=0;
writeln('Введите x: ');
readln(x);
if (xgt;0) then y:= x;
if (x lt; 0) or (x = 0) then y:= 1/x;
writeln('y = ', y);
end.