Местоимения — части речи,
запятая — знаки препинания,
джойстик — устройства периферии (уст-ва ввода информации),
прямоугольник — геометрические фигуры,
учебник — печатная продукция.
Const n: array[1..10] Of string = ('один','два','три','четыре','пять',
'шесть','семь','восемь','девять','нуль')
;
Var b,c: string;
i,j: integer;
Begin
b := '1234567890';
Write ('Введите цифру / число : ');
read (c);
For i:=1 To length(c) Do
Begin
j := pos(c[i],b);
write (n[j],' ');
End;
<span>End.</span>
Программа работает в следующем виде:
n = InputBox(vbLf & "Напиши значение ""n"" (количество расчетов)")
ReDim X(n)
ReDim Y(n)
Randomize
For i = 1 To n
X(i) = 5 - 10 * Rnd
Next
S = 0
For Each b In X
S = S + X(1) / i
Next
MsgBox "S=" & S
Нижние строки я убрал, потому что не понял, зачем они и что должны выводить: в задании про них ничего не сказано.