Вычислить сумму кубов первых 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.