Помогите с написанием программы!Нужно написать программу в Паскале. Найти сумму а1+2а2+3а3+..+8а8  

program sum;uses crt;vara,r:real;i:integer;beginclrscr;r:=0;writeln('Vvedite chislo a: ');read(a);for i:=1 to 8 do r:=r+(i*a*i);writeln('Otvet: ',r);end.