Найти квадрат целой части результата деления меньшего из двух чисел на больше

Если меньшее чосло поделить на большое будет меньше единицы, то есть ответ 0.

var
a, b: integer; 
begin
writeln('Введите два числа: ');
readln(a,b);
if a < b then writeln(sqr(trunc((a/b
else writeln(sqr(trunc((b/a;
end.