Жұп немес тақ екенін шығару программасын паскаль тілінде құру керек?

Question

А саны берілген. Жауапқа осы санның жұп немес тақ екенін шығару программасын паскаль тілінде құру керек?

Answer 1

program sheshim;

var n:integer;

begin

writeln('n sanyn engiz');

readln(n);

if odd(n) then

writeln('Tak san!')

else writeln('Zhub san!');

end.