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

если брать ширину 4 клеточки, а длину 6 клеточек, и задать сторонку квадрата 2 то будет   6 квадратов.. .

программа без всяких проверок, если нужно то уже в лс.

uses crt; var d,sh,a,z: real; beginwriteln('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.