Помогите решить информатику тема :ветвление в вычислительных алгоритмах (задание во вложении )

Решение на Паскале

Program Z1;

Var a,b,c,d:integer;

Begin

Read(a);

Read(b);

Read(c);

If a<c then d:=a;

if b<c then a:=b;

d:=d+a;

Writeln(d);

End;