<span>f:= x*x*x*x; x:=x+0.1; writeln (f,x);
последний варант
</span>
Сначало надо взять козу и перевести ее. Потом поехать за капустой. Привесзти ее, но забрать козу. Приехать. Оставить козу и взять волка. Перевести волка. И потом вернуться за козой;)
А какие числа то? Так то много можно написать
Program comparison;
var
a,b,c:real;
begin
write ('Введите первое число:');
readln(a);
write ('Введите второе число:');
readln(b);
if a>b then
begin
c:=a-b;
write ('Первое число больше второго на ', c);
end;
if a<b then
begin
c:=b-a;
write ('Второе число больше первого на ', c);
end;
if a=b then
write ('Числа равны');
end.