Запишите на ЯП Паскаль программу, соответствующую данной блок-схеме:

Program H;
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;
writeln(d);
end.