Question

помогите информатика ...​

Answer 1

var i: integer;

begin

for i:=13 downto 7 do

writeln(I*i*i);

readln;

end.