Program abc;
var a,b,c,i,i1:integer;
begin
readln(a,b);
if(a<b) then
for i:=1 to b do
begin
i1:=i+1;
c:=i1+i;
end;
if(a>b) then
for i:=1 to a do
begin
i1:=i+1;
c:=i1+i;
end;
writeln(c);
end.
Перевожу на русский.
Если а больше b,то d=a, если нет- d=b, .
У тебя а>b? Нет. Значит d=5; d=5-2=3.
Ответ d=3.
D1)прямая горизонтальная линия
2) любой из этих рисунков
П2 -> П1 -> П0 x#0 33
ИП1 x^2 4 ИП0 ИП2 * * + x#0 33
КвКор ИП1 + ИП0 2 * /
ИП0 x^2 ИП2 * - 3 ИП2 x^y + С/П
Ввод: a ^ b ^ c С/П.
С проверкой на корректность значений.