51.txt

PL0 Compiler Source Code

var x,y,z;
begin
     x:=-3;
     read(z);
     if z>4 then
	write(x)
end.