Ce erori sunt in program Program P1;
var n:integer ;
procedure numar(n:integer);
var x:integer;
begin
if( n mod 2=0) then write('x:=da',x) else write ('x:=nu',x);
end;

begin
write('Dati n');
readln(n);
readln;
end.