Можно словом комп или устройство.
№1 var s,x,n,i:integer;begins:=0;write('Введите количество чисел: ');readln(n);writeln('Введите числа: ');for i:=1 to n dobeginreadln (x);s:=s+xend;writeln('Сумма чисел равна ',s);end.
№2 var n,i,p:integer;beginp:=1;write('Введите количество чисел: ');readln(n);for i:=1 to n dop:=p*i;writeln('Произведение чисел равнo ',p);end.
Подробнее - на Znanija.com -
znanija.com/task/14923730#readmore
10102=1⁴0³1²0¹2⁰₂= 1*2⁴+1*0³+1*2²+1*0₁+1*2⁰=16+0+4+0+1=21
1⁶0⁵1⁴1³0²1¹2⁰= 64+0+16+8+1+1=90
По алфавиту! Буква "Г" - четвертая в алфавите; Буква "А" - первая; Буква "Р" - восемнадцатая; Буква "И" - десятая; Буква "Н" - пятнадцатая.
Вот и всё)