Даны длины десяти сторон квадратов. ВЫчислите их площади и периметры

Если квадратов десять, то: [если честно, лет 7 не кодил на паскале, поэтому могу ошибаться в синтаксисе или каких-то деталях]задаем 3 массива числовых элементов: varS, P, x: array[1… 10] of integer; //S — будущие площади, P — периметры, x — стороны квадратовi: integer; //счетчик для цикла beginfor i: =1 to 10 do begin Writeln ("Введите сторону "+IntToStr (i)+" квадрата: "); Readln (x[i]); end; //ввели стороны, теперь вычисляем площади и периметры: for i: =1 to 10 do begin S[i]: =x[i]*x[i]; //для нахождения площади перемножаем стороны каждого квадрата P[i]: =x[i]*4; //для нахождения периметра — умножаем сторону квадрата на 4//и тут же выводим это на экран: Writeln ("Площадь "+IntToStr (i)+" квадрата равна "+IntToStr (S[i]); Writeln ("Периметр "+IntToStr (i)+" квадрата равен "+IntToStr (P[i]); Writeln; end; Readln //это чтоб дождаться нажатия Энтер перед закрытием окошка end; Должно работать.