Составить алгоритм

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.