Розв’язок задачі з Абрамова №334

program Pr334;
const
  n = 100;
  m = 50;
var
  s1, s2, s3, s4 : real;
  i, j : integer;
begin
  s1 := 0; s2 := 0; s3 := 0; s4 := 0;
  for i := 1 to m do
  for j := 1 to n do
  begin 
    s1 := s1 + 1 / (i + j * j);
    s2 := s2 + sin(i*i*i + j*j*j*j);
    s3 := s3 + (j - i + 1) / (i + j);
    s4 := s4 + 1 / (2*j + i);
  end;
  writeln('s1 = ', s1:2:3);
  writeln('s2 = ', s2:2:3);
  writeln('s3 = ', s3:2:3);
  writeln('s4 = ', s4:2:3);
  readln;
end.