Вычислить сумму кубов первых 3 чисел и произведения квадратов. по информатике составить программу

Uses crt;var i,p,s : integer;begins:=0;p:=0;for i:=1 to 3 dos:=s+i*i;p:=p+i*i*i;writeln('s=,s')end.