Непонятно, что за "надписи".
Предположим, что
1. "бабушка попросила"
2. "взяла лукошко"
3. "подошла к кусту"
4. "сорвала ягоду"
5. "сварили варенье"
тогда логика задачи будет следующей
бабушка попросила
Если Маша согласилась тогда
взяла лукошко
подошла к кусту
Если куст с ягодами Тогда
Пока (на кусте есть ягоды) и (лукошко пустое) Цикл
сорвала ягоду
КонецЦикла
КонецЕсли
сварили варенье
КонецЕсли
В принципе, если несколько кустов, нужен цикл обхода по кустам пока не наполнится лукошко.
Только сегодня начал учить Паскаль и заметил у вас кучу ошибок. Вы сделали очень много лишних действия, и непонятно, чему равны переменные molod и sredny? А если это строки, то b и а тоже должны быть строковыми. Я бы сделал так
program haracteristy;
uses crt;
var vozrast: Integer;
begin
clrscr;
writeln ('Введите свой возраст');
read (vozrast);
if (vozrast >0) and (vozrast <18) then
write ('Вы еще очень молоды')
else if vozrast >18 then
write ('Вы в расцвете сил')
else
write('Ошибка! Возраст не может быть меншье нуля');
end.
