1. файл, фонограф
2. береста
3. хранения
4. долговременной
5. оперативная
6. информация
7. фотография
8. камень
9. папирус
10. Китай
11. пергамент
INPUT "n=", n
s = 0
i = 1
DO WHILE i <= n
s = s + 2 * i
i = i + 1
LOOP
PRINT "s="; s
Могут быть небольшие ошибки
var a: integer;
begin
readln (a);
if (a mod 2)=0 then
writeln ('да')
else
writeln ('нет');
end.
Конструкция SmallString = string[l]; объяляет тип SmallString как строку из l символов. Для такого объявления l должно быть задано выше константой.