begin
	string(1) s1;
	s1 := "3";
	write(s1);
end