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