Mă poate ajută vă rog cineva cu acest program în pascal?

Răspuns:
program ca;
var nr:integer;
begin
writeln('Dati numarul;');
readln(nr);
if nr mod 2 = 0 then writeln('Numarul este par')
else writeln('Numarul este impar');
end.
Explicație: