Program Menentukan Banyak dan Jumlah Bilangan dari Bilangan Pecahan;

Uses crt;

Var
jumlah:real;
x,n:integer;


Begin
Clrscr;

Writeln ('__________________________Selamat Datang di________________________');
Writeln ('PROGRAM MENENTUKAN BANYAK DAN JUMLAH BILANGAN DARI BILANGAN PECAHAN');
Writeln (' Oleh :Dian Aliza Pratidina ');
writeln (' 070804 ');
Writeln;

n:=25;
jumlah:=0;

for x:=1 to n-1 do
begin
write ('1/',x*x,' , ');
jumlah:=jumlah+1/(x*x);
end;

write ('1/',n*n);
jumlah:=jumlah+1/(n*n);
writeln;

writeln;
writeln ('Banyaknya:',n);
writeln ('Jumlah:',jumlah:2:2);
writeln;
writeln ('_______________________________terima kasih_________________________');

readln;

End.