begin
comment: if inside if using begin...end;

	integer n, m;
	read(n);
	if n < 0 then 
	begin
		if n>= -100	then m := -n else m := -100
	end
	else m := 0; 
	write(m);
end
----stdout comments:
Algol60 program changes:
- input/output functions