авс! 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.