У бабушки в деревне были куры, гуси и утки. С диаграммы определи: 1)Сколько кур у бабушки? сколько гусей? сколько уток?

Program sum;
uses crt;
var
a,r:real;
i:integer;
begin
clrscr;
r:=0;
writeln('Vvedite chislo a: ');
read(a);

for i:=1 to 8 do r:=r+(i*a*i);
writeln('Otvet: ',r);
end.