Непонятно, что за "надписи".
Предположим, что
1. "бабушка попросила"
2. "взяла лукошко"
3. "подошла к кусту"
4. "сорвала ягоду"
5. "сварили варенье"
тогда логика задачи будет следующей
бабушка попросила
Если Маша согласилась тогда
взяла лукошко
подошла к кусту
Если куст с ягодами Тогда
Пока (на кусте есть ягоды) и (лукошко пустое) Цикл
сорвала ягоду
КонецЦикла
КонецЕсли
сварили варенье
КонецЕсли
В принципе, если несколько кустов, нужен цикл обхода по кустам пока не наполнится лукошко.
var
fi, fo: Text;
n, m, a, b: Integer;
s: string;
begin
Assign (fi, 'INPUT.TXT');
Reset (fi);
Read (fi, n, m, a, b);
Close (fi);
Assign (fo, 'OUTPUT.TXT');
Rewrite (fo);
WriteLn (fo, (m + n - 2) * b);
WriteLn (fo, (n - 1) * a);
Close (fo);
end.
Объяснение:
по лестнице:
n - 1 этажей, а секунд на этаж, время = (n - 1) * a
n - 1 потому, что Миша находится на первом этаже, а не на нулевом
на лифте:
лифт едет на 1-этаж: k - 1
Миша едет к себе: n - 1
всего этажей = (k - 1) + (n - 1) = (k + n - 2)
общее время = (k + n - 2) * b