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.