Составить алгоритм Y=5x/x-2 S=1+2+3+...+n

var     x: real;     s, n, i: integer; begin     write('1. Введите х для y= 5*x/(x-2) = ');     readln(x);     writeln('y = ', 5 * x / (x - 2));          write('2. Введите n = ');     readln(n);          s := 0;     for i := 1 to n do         s := s + i;     writeln('S = ', s) end.