«Вычисления по известным формулам». Написать программу: 15 Известны ширина и длина прямоугольника. Сколько квадратов со стороной А можно вырезать из данного прямоугольника?

Если брать ширину 4 клеточки, а длину 6 клеточек, и задать сторонку квадрата 2 то будет  6 квадратов.. .. программа без всяких проверок, если нужно то уже в лс.   uses crt; var d,sh,a,z:real; begin writeln('write dlinu '); readln(d); writeln('write shirinu'); readln(sh); writeln('write dlina storony a '); readln(a); z:=(d*sh)/sqr(a); writeln(z); readln; end.