Помогите пожалуйста.

var a,b,c,min:integer;

begin

readln(a);

min:=a;

readln(b); readln(c); begin

if b < min then min:=b else min:=a;

if c < min then min:=c; end;

writeln(min);

end.