Написать программу для решения . найти сумму всех n-значений чисел. (1n≤4

program fantscrin;

var x, y: real;

begin

  write('x = '); readln(x);

  write('y = '); readln(y);

  if x = 0 then if y = 0 then writeln('точка m(', x, ', ', y, ') находится в начале координат')

                        else writeln('точка m(', x, ', ', y, ') находится на оси абсцисс')

          else if y = 0 then writeln('точка m(', x, ', ', y, ') находится на оси ординат');

  if x > 0 then if y > 0 then writeln('точка m(', x, ', ', y, ') находится 1-ой четверти')

                        else if y < 0 then writeln('точка m(', x, ', ', y, ') находится 4-ой четверти');

  if x < 0 then if y > 0 then writeln('точка m(', x, ', ', y, ') находится 2-ой четверти')

                        else if y < 0 then writeln('точка m(', x, ', ', y, ') находится 3-ой четверти');

end.

//pascal //числа случайные в диапазоне [-10; 10] var   a: array [1..15] of integer;   i: byte;   mult: longint; begin   mult : = 1;   randomize; //в pascalabc.net можно убрать   for i : = 1 to 15 do   begin       a[i] : = random(21)-10;       if i mod 2 = 0 then mult : = mult * a[i];       write(a[i], ' ');   end;   writeln;   writeln('произведение элементов на четных местах = ', mult);   readln; end.