Просто делаешь все действия в обратном порядке
70-32=38
38:9/5, то есть (38*5)/9=21.1
X - 1 сторона
y - 2 сторона
Исходя из условия можно составить систему уравнений.
{x*y=180
{(x-2)(y+3)=180
x=12, y=15
Что-то типо этого: https://beginpc.ru/images/windows/disk_structure.png
Var
i, kor, koz, ov: integer;
begin
for i := 1 to 40 do
begin
koz := i;
kor := 2 * koz;
ov := 40 - (koz + kor);
if ov < 0 then break;
writeln('Овец: ', ov, ' Коров: ', kor, ' Коз: ', koz);
end
end.