program low;
const
n=10;
var
x1,x2,x3,x4:real;
w1,w2,w3,w4:real;
sqn,net:BYTE;
t1,t2,t3,t4:real;
suma:integer;
begin
writeln('Podaj pierwsza wartosc X');
readln(x1);
writeln('Podaj druga wartosc X');
readln(x2);
writeln('Podaj trzecia wartosc X');
readln(x3);
writeln('Podaj czwarta wartosc X');
readln(x4);
end;
begin
writeln('Podaj pierwsza wartosc W');
readln(w1);
writeln('Podaj druga wartosc W');
readln(w2);
writeln('Podaj trzecia wartosc W');
readln(w3);
writeln('Podaj czwarta wartosc W');
readln(w4);
begin
t1=x1*w1;
readln(t1);
t2=x2*w2;
readln(t2);
t3=x3*w3;
readln(t3);
t4=x4*w4;
readln(t4);
end;
begin
suma:=t1+t2+t3+t4;
if suma >= 0 then
sqn:=
if suma < 0 then