Question

РЕШИТЕ ЗАДАЧУ ПО ИНФОРМАРТИКЕ, ПОЖАЛУЙСТА!!!
Саша, Маша, Гриша и Вова собирали яблоки в саду. Маша собрала на 3 яблока больше, чем Саша. Гриша на 10 яблок больше, чем Маша. Вова в 3 раза меньше, чем Саша с Гришей и Машей! Сколько каждый собрал из ребят, если известно, сколько собрал Вова?
НУЖНО СОСТАВИТЬ УРАВНЕНИЕ, ЗАДАЧА ДЛЯ ПРОГРАММЫ АВС(ПАСКАЛЬ)-распишите, как решить в программе, пожалуйста!!!

Answer 1

program gg;
var
a,b,c,s,i,y:integer;
begin
write('Введите сколько яблок собрал Вова: ');
readln(a);
b:=a*3;//Sasha
c:=b+3;//Masha
s:=c+10;//Grisha
writeln('Саша собрал: ',b,' яблок');
writeln('Маша собрала: ',c,' яблок');
writeln('Гриша собрал: ',s,' яблок');
end.