var
a, b, c, v: integer;
s, d1, d2: real;
begin
Writeln('Введите А: ');
Read(a);
Writeln('Введите Б: ');
Read(b);
Writeln('Введите C: ');
Read(c);
V := a * b * c;
Writeln('Результат "V:=a*b*c" = ', V);
Writeln('Введите D1: ');
Read(d1);
Writeln('Введите D2: ');
Read(d2);
s := d1 * (d2 / 2);
Writeln('Результат "s:=d1*(d2/2)" = ', s);
end.
Более простой вариант:
begin
var (a,b,c):= ReadInteger3('Введите А B C: ');
Println('Результат :', a*b*c);
var (d1,d2):=ReadReal2('Введите D1 D1: ');
Println('Результат: ', d1*(d2/2));
end.
Объяснение:
1)У тебя спрашивают b=1? У тебя дано b=3, значит b!=1. Если нет, то переходим к следующим указаниям: с=с-b=4-3=1, b=b+c=3+1(Потому что в предыдущем шаге мы дали новое значение для c, вернее произвели математическую операцию с ним. Возвращаемся(Слева линия) снова к логическому условию. Я честно говоря ХЗ, что они тут имели ввиду, но после того, что я описал c=1,но если мы продолжим проверку b=1, то c начнет принимать отрицательные значения. Цикл вышел, как мне кажется.
Теперь мне лень расписывать - держи фото/скрины
Не знаю, что у тебя за язык программирования, но я сделал тоже самое на Python, вроде результат отличатся не должен.