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); <span>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.<span> </span></span>
Uses crt; var a,b,i,k: longint; begin writeln('введите 2 числа'); read (a,b); k:=0; for i:=a to b do if i mod 2 = 0 then k:=k+i; writeln(сумма четных чисел от ', a,' до ', b,' равна ',k) <span>end.</span>