with text_io; use text_io;
procedure TizFaktor is
	f: INTEGER := 1;
begin
	for i in 1..10 loop
		f := f*i;
	end loop;
	Put_Line("10! = " & INTEGER'IMAGE(f));
end TizFaktor;