<span><span>program qwr;
uses crt;
var
f : real;
i : byte;
z,a : array [0..3] of real;
begin
for i:=1 to 3 do
begin
write('z[ ',i,']= ');
readln(z[i]);
end;
for i:=1 to 3 do
begin
write('a[ ',i,']= ');
readln(a[i]);
end;
writeln(' ______________________');
writeln(' Z[i] | A[i] | f ');
for i:=1 to 3 do
begin
f:=exp(ln(z[i]+a[i])*(3/2));
writeln(' ',z[i]:(3),' | ',a[i]:(3),' | ',f:(3):(2));
end;
writeln(' _______|_______|______');
end.</span></span>
Телевизор, экран , и так далее
Function GetR(R1,R2 : Real; t : Integer) : Real;
Begin
Case t of
1 : GetR:=R1+R2;
2 : GetR:=(R1*R2)/(R1+R2)
else GetR:=-1
end;
end;