Вообще то варианты некоректны. Вы должны использовать скобки вместе с апострофами, именно апострафами, а не кавычками, т.е. все должно выглядить,например, так
Writeln('Всего было ', а,' символов');
Т.е. на экран выведиться следущее, если а получилось равно 98
Всего было 98 символов
Если считать, что вместо A[i]=1+1 написано A[i]=i+1,
а вместо A[i]:=A[1-1] написано <span>A[i]:=A[i-1] (что скорее всего, иначе нужного ответа вообще нет), то после первого цикла получится массив
1 2 3 4 5 6 7 8 9 10 11,
а после второго - 1 1 1 1 1 1 1 1 1 1 1
Ответ: 3)
</span>
Прости, что отвечаю через 2 часа, был не дома)
var
i, j, n : integer;
flag : boolean;
begin
write('n = ');
read(n);
for i := 2 to n do begin
flag := true;
for j := 2 to i-1 do
if (i mod j = 0) then begin
flag:=false;
break;
end;
if flag = true then write(i, ' ');
end;
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrRandom(10,0,20).Println;
a:= a.Where((v,i) -> i <> 4).ToArray;
a.Println;
end.
Ошибка <span>Меркурий</span> т.к все слова на английском ,а это на русском