Помогите решить информатику тема :ветвление в вычислительных алгоритмах (задание во вложении )
Решение на Паскале
Program Z1;
Var a,b,c,d:integer;
Begin
Read(a);
Read(b);
Read(c);
If a
if b
d:=d+a;
Writeln(d);
End;