Написать код в на языке c++ visual studio вычислить по формуле №3

первый для однократной записи

а второй для перезаписывания(тоесть на нем возможно перезаписывание)

var

  n: integer;

begin

  readln(n);

  writeln(abs(n)-2);

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.

var 

i,n: integer;

begin

readln(n);

for i: =1 to n-1 do write(i*i: 5);

end.