program prfor; var i, min, max: integer; begin min:=3; max:=6; for i:=min to max do begin writeln(i,'*',i,'=',i*i); writeln; end; end.