Var
a, b, c, max: longint;
begin
readln(a, b, c);
max := a;
if (b > max) then
max := b;
if (c > max) then
max := c;
writeln(max);
end.
Если я правильно понял ВП-вперед,НД-назад, то вперед30назад80вперед50 назад40, то она будет находиться на расстоянии 40 от первоначального положения
Начало
Взять нож
Взять хлеб
Взять колбасу
Взять масло
Взять сыр
Отрезать кусок хлеба
Намазать его маслом
Отрезать кусок колбасы
Положить её сверху на хлеб
Отрезать кусок сыра
Положить его сверху на колбасу
Отрезать ещё один кусок хлеба
Положить Его на сыр
Убрать на место сыр колбасу хлеб и нож
бутерброд готов
конец