найти сумму квадратов первых n натуральных чисел/ ох, простите!:DDD на языке паскаль

а нужна сумма n натур чисел

program dydaone ; var i, i2, n, sum : longint ; write ('vvedi n' ) ; readln ( n ) ;sum:=0; for i:=1 to n do if a>0 then do sum:=s+a;

я в условии так прочитал, что нужна сумма квадратов, а не сумма числел

надо мне быть внимательнее... спасибо!)

ага. Сам тоже бывает лажанусь на какой-то невнимательности. Но это фигня всё на самом деле.