Нужна с составлением алгоритмов

/*
Найти частное от деления нацело
используя только + и -
*/

#include <iostream>
using namespace std;

int main()
{
int a, b;
cout <<"Введите два целых числа: ";
cin >>a >>b;
int c=0;
while(a>=b)
{
a-=b;
c++;
}
cout <<"Частное равно " <<c <<endl;

return 0;
}

/*
Определение среднего роста учащичся
*/
#include <iostream>
using namespace std;

int main()
{
cout <<"Введите количество учащихся: ";
int cnt;
cin >>cnt;
cout <<"Ведите рост каждого из " <<cnt <<" учащихся:" <<endl;
int length=0, l;;
for(int i=0; i!=cnt; ++i)
{
cin >>l;
length+=l;
}
float avg=1.0*length/cnt*1.0;
cout.setf(std::ios::fixed);
cout.precision(2);
cout <<"\nСредний рост: " <<avg <<endl;

return 0;
}

program yrav;

var

  a,b,c,d,x1,x2,x:real;

begin

  writeln('Введите коэффиценты квадратного уравнения');

  readln(a,b,c);

   d:=b*b-4*a*c;

   if d<0 then writeln('корней нет');

   if (d>0) and (a<>0)and (b<>0)and (c<>0) then

   begin

     x1:=(-b+sqrt(d))/(2*a);

     x2:=(-b-sqrt(d))/(2*a);

     writeln('X1= ',x1:6:3,'   X2= ',x2:6:3);

   end;

  if  (a=0)and(b<>0)and(c<>0) then

  begin

    x=-c/b;

    writeln('Один корень уравнения Х= ',x:6:3);

  end;

  if (b=0)and(c<0) and(a<>0) then

  begin

   x1=sqrt(-c/a); x2=-sqrt(-c/a);

   writeln('X1= ',x1:6:3,'   X2= ' ,x2:6:3);

  end

  else writeln('Корней нет!');

  if (a<>0) and(b<>0)and(c=0) then

  begin

   x1:=0;

   x2:=-b/a;

   writeln('X1= ', x1:6:3,'     X2= ',x2:6:3);

  end;

end.