Question

информатика программирование паскаль abc помогите решить задачу
program n_6;
var n:integer;ans:boolean;
begin
writeln ('Опредеиление истиности высказывания о чётности числа');
write ('Введите исходное число>>');
readln (3);
ans:=n mod 2=0;
writeln ('Число',n,'является четным-',ans);
end.