program.pascal

{*jbxlb*}

program	test11;
const toto=21;
var x ,y;
Begin
	x:=toto;
	write(y);
	read(r);
	while a<5 do read(g);
end.