Question

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

Answer 1

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

Answer 2

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.