<span>b. формула расчета сопротивления при последовательно-параллельном соединении</span>
Program Project1;
var m:array [0..19] of integer; i:integer;
begin
for i:=0 to 19 do begin
m[i]:=20-Random(30);
if m[i]<0 then m[i]:=m[i]*-1;
writeln(m[i]);
end;
readln;
end.
uses crt;
var x, y:real;
begin
read(x);
if x<=-70 then
y:=x*x+50
else
if (-70<x) and (x<=0) then
y:= abs(x)
else
y:=3*(x*x+1);
writeln(y);
end.