kareAl(sayi){ var sKaresi; sKaresi = sayi*sayi; return sKaresi; } girilenSayiKare(s){ var sonuc,sayac; sonuc=0; sayac=0; read s; while(sayac <= s){ sonuc= sonuc + kareAl(sayac); sayac=sayac+1; } println s, " e kadar sayıların karelerinin toplamı = ", sonuc; }