Вычислить произведение первых 10 натуральных чисел.паскаль, !

var i: integer;

bagin

for i: =1 to 10 do

begin

i: =i*i;

i: =i+1

end;

end.

 

откомпилируй код, скажи где ошибка если что

{ответ дан на языке pascal } {                вариант a                } program solution(input, output); var   str: string;   str1: string;   str2: string;   str3: string;   tempstr: string; begin   write('введите строку: ');   readln(str);   str1 : = copy(str, 1, length(str) div 3);   str2 : = copy(str, length(str) div 3 + 1, (length(str) div 3));   str3 : = copy(str, (length(str) div 3) * 2 + 1, length(str));   writeln(str2 + str3 + str1); end. {                вариант b                } program solution(input, output); var   str: string;   str1: string;   str2: string;   str3: string;   tempstr: string; begin   write('введите строку: ');   readln(str);   str1 : = copy(str, 1, length(str) div 3);   str2 : = copy(str, length(str) div 3 + 1, (length(str) div 3));   str3 : = copy(str, (length(str) div 3) * 2 + 1, length(str));   writeln(str3 + str1 + str2); end.

Pascalabc.net 3.3.5, сборка 1640 от 17.03.2018 внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк/столбцов в матрице: ');   writeln('*** исходная матрица ***');   var a: =matrrandom(n,n,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var k: =range(0,n-1).select(i-> a[i,i]).toarray.indexmin;   swap(a[0,0],a[k,k]);   writeln('*** результат ***');   a.println(4) end. пример количество строк/столбцов в матрице: 5 *** исходная матрица ***   -54    0  45  24  72   -90  46  54  46  50   -51  85 -76 -64 -27   -14 -33 -66    2  71   43 -92  77  58 -22 *** результат ***   -76    0  45  24  72   -90  46  54  46  50   -51  85 -54 -64 -27   -14 -33 -66    2  71   43 -92  77  58 -22