Даны положительные числа a, b, c. на прямоугольнике размера a × b размещено максимально возможное количество квадратов со стороной c (без наложений). найти количество квадратов, размещенных на прямоугольнике. операции умножения и деления не использовать. сделать через while30.

Var a,b,c,x,y,s: integer;     begin    readln (a,b,c);    x:=c; y:=c; s:=0;  while x<=a do     begin s:=s+1; x:=x+c end;  x:=s; s:=0;  while y<=b do     begin s:=s+x; y:=y+c end;  writeln (s)end.
Примеры:
5 6 26
2 3 40