Помогите))) не понимаю эти паскали!!!

begin

 var a, b, c, d: integer;

 d := 0;

readln(a, b, c);

if a lt; c then d := a;

if b lt; c then a := b;

d := d + a;

write(d);

end.