Заполнить массив из десяти элементов значениями, вводимыми с клавиатуры в ходе выполнения программы

Pascal: var a: array [1..10] of integer; begin   for i: =1 to 10 do     begin     write ('a[',i,'] = ');     readln (a[i]);     end; end. c++: #include < iostream> using namespace std; int main() {   int a[10];   for (int i = 0; i< 10; i++)   {     cout < < "a[" < < i < < "] = ";     cin > > a[i];   }   return 0; }

var

x: real;

begin

readln(x);

writeln(round(x));

end.

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.