СРОЧНО!!!!!!! РЕШЕНИЕ В ПАСКАЛЕ!!! ЗАДАЧА ВО ВЛОЖЕНИЯХ!!! ПОМОГИТЕ ПОЖАЛУЙСТА!!!

 

В 1-ой задаче нужно найти сумму данного ряда

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.