Так?
uses Robot;
begin
Task('if1');
right;
if WallFromUp then
begin
down;
right;
up;
end;
if wallfromdown then
begin
up;
right;
down;
end;
paint;
end.
1 Гбайт = 2^30 байт
4 Гбайт = 2^120 байт
4 Гбайт =8^40 байт
x=40
78^10 → 1001110^2
78^10 → 116^8
78^10 → 1032^4
58^10 → 111010^2 322^4 72^8
35^10 → 100011^2 203^4 43^8
321^4 →57^10
765^8 →501^10
10101110^2 →174^10 256^8
Var
a, b, c: longint;
begin
readln(a, b);
c := a - b;
if (c > b) then
writeln('Валя собрала на ', c - b, ' кг клубники больше чем Вера.');
if (c < b) then
writeln('Вера собрала на ', b - c, ' кг клубники больше чем Валя.');
if (c = b) then
writeln('Девочки собрали одинаковое количество клубники.');
end.