Soner MC
Профи
(556)
12 лет назад
var
x1,x2,x3,x4,x5,x6,x7,x8; real;
writelen ('задайте х1', x2);
writelen ('задайте х2', x2);
writelen ('задайте х3', x3);
writelen ('задайте х4', x4);
writelen ('задайте х5', x5);
writelen ('задайте х6', x6);
writelen ('задайте х7', x7);
writelen ('задайте х8', x8);
x:=x1+x2+x3+x4+x5+x6+x7;
writelen ('сумма равна', x);
end.
вроде так, хотя я слабо помню