Для зачета по турбо паскалю! важно! 1) даны число a> 0, числа x1, необходимо вводить числа x1, , пока сумма модулей введенных чисел буде меньше a. определить число введенных чисел. 2)даны число n и векторы а=(а1,) , b=(b1,) найти координаты вектора с, равного сумме векторов a и b, если a1
var s:string;
begin;
for i:=length(s) downto 1 do
write(s[i]);
end.