1.
uses crt;
var i,n:integer;
A:array[1..4] of integer;
begin
n:=1;
for i:=1 to 4 do
begin
read(A[i]);
n:=n*A[i];
end;
writeln(n);
end.
<em>Погода </em><em>- температура, осадки, влажность</em>
<em>Успеваемость</em><em> - оценки учеников</em>
<em>Факультативы</em><em> - посещаемость учеников</em>
Program asd;
var x,y,z,v,f:real;
BEGIN
x:=1.825;
y:=18.225;
z:=-3.298;
Write('X: ',x);
Write('Y: ',x);
Writeln('Z: ',x);
v:=abs(exp(ln(x)*(y/x)) - exp(ln(y/x)*(1/3)));
f:=(y-x)*((y-z/(y-x))/1+sqr(y-x));
Writeln('V: ',v:2:2);
Writeln('F: ',f:2:2);
END.
<span>
</span>