[abcdef]

MIDletPascal:

var
  sum,ost,a,b : integer;
begin
  a:=250;
  b:=230;
  /// a div b ///
  sum:=0;
  ost:=a;
  while (ost>=b) do
  begin
    ost:=ost-b;
    sum:=sum+1;
  end;
  drawText(''+a+' div '+b+' = '+sum+'; '+ost, 0, 0);
  repaint;	
  repeat until false;
end.