На паскале:
program prim;
var a,z,x,y,b:real;
begin
writeln('Введите z, x и y: ');
readln(z,x,y);
a:=(44*z+x)/((y*y*y)-5);
b:=(sqr(x)*(sqr(y)-2))+(sqrt(3+z)/8);
writeln('a и b равно ',a ,' ', b);
end.
Если конечно я все правильно понял))
Program one;
Var a:array[1..9999] of rial; i,m,n,k:integer;
Begin
K:=1;
Readln (n);
For i:=1 to n do begin
Readln(a[i]) ;end;
For i:=1 to n do begin
If (a[i]>0) then a[i]:=a[i]*0,4;
If (a[i]=0) then a[i]:=0,5; If (a[i]>0) then k:=k*a[i];
If (a[i])<0) then m:=m+a[i];
End;
Writeln (k,m);
End .
Var a,b:integer;
begin;
readln(a);
readln(b);
if a>b then write('Первое');
if a<b then write('Второе');
if a=b then write('=');
<span>end.</span>