Program Zadacha;Var a, b: integer;Begin Write('введите 2 числа:'); ReadLn(a, b); WriteLn('частное квадратов = ', (a*a)/(b*b)); ReadLn;End.