составить алгоритм
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.