Даны два ненулевых числа. Найти частное их квадратов

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