Пожалуйста, помогите с Паскаль АВС!
1. Найти наименьшее из трех введенных с клавиатуры чисел
2. Найти произведение трех четных введенных с клавиатуры чисел
Заранее спасибо!

1.var a,b,i,n,min:integer;beginwriteln('Input value');read(a);min:=a;for i:= 1 to 2 do begin   writeln('Input value');   read(a);   if min>a then min:=a;end;writeln('min = ',min);end.2.var a,b,c:integer;beginwriteln('Input a');read(a);writeln('Input b');read(b);writeln('Input c');read(c);a:=a*b*c;writeln('prod = ',a);end.