var
s:real;
n, i:integer;
begin
write('Введите колчиесвто членов последовательности '); readln(n);
s := 0;
for i := 1 to n do
s := s + 1 / (i * i);
writeln('Сумма членов равна ', s);
end.
//вторая программа
var
c, max, i:integer;
begin
max := 0;
for i := 1 to 5 do
begin
write('Введите число '); readln(c);
if c > max then
max := c;
end;
writeln('Максимальным является число', max);
end.