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

1. var a,b,i,n,min:integer; begin writeln('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;begin writeln('Input a'); read(a); writeln('Input b'); read(b); writeln('Input c'); read(c); a:=a*b*c; writeln('prod = ',a); end.