BÖLÜNEN VE BÖLENE GÖRE BÖLÜM VE KALAN BULAN PROGRAM

uses  crt;
var
   s,y,x:integer;
begin
     clrscr;
     write('b”lneni girin:'); readln(x);
     write('b”leni girin:'); readln(y);

     s:=0;
     while (x>=y) do
     begin
          x:=x-y;
          s:=s+1;
     end;
     writeln('b”lm :',s);
     writeln('kalan :',x);
     readln;
end.