Question

КТО-НИБУДЬ HELP.ЕСТЬ ТАКИЕ КТО СПОСОБЕН???!!!.....(блок схему в программу pascal пожааалуйста
(номер 2)

Answer 1

var a,b,c,d:integer;
begin
readln(a,b,c);
if a<c then d:=a;
if b<c then a:=b;
d:=d+a;
write(d);
end.