1) var a,b,d,e,c,k,l,f:integer;
begin
read(a);
b:=a mod 10;
c:=a div 1000;
k:=a mod 100;
e:=k div 10;
l:=a div 100;
d:=l mod 10;
f:=b*c*e*d;
write(f);
End.
2)зачерпнуть 8л, вылить 3 л в ведро ёмкостью 3л, вылить из ведра 3 л, пережить из первого 3л, вылить 3 л, долить оставшиеся 2 л, наполнить первое ведро, долить литр во второе ведро. и того в 1 - 7л, во втором - 3.
Program z1;
var a,x:real;
begin
writeln(x);
a:=(1-2*x)/4;
writeln(a);
end.
<span>106
function f(x: integer): integer;
var
L, M: integer;
begin
L := x - 12;
M := x + 12;
while L <> M do
if L > M then
L := L - M
else
M := M - L;
f := L;
end;
begin
var x := 100;
var r := 0;
repeat
x := x + 1;
r := f(x);
until r = 2;
writeln(x);
end.
</span>
program Sum;
var
a,b,c,s: integer;
begin
WriteLn('Введите числа а,в,с');
ReadLn(a,b,c);
s:=a+b+c;
WriteLn('Сумма чисел равна',s);
end.