На турбо паскаль составить таблицу кубов натуральных чисел от 1 до 15 придусмотреть начало заголовка использовать оператор цикла с параметром

Program gt;
var i:integer;
begin
writeln('Заголовка');
i:=1;
while i<=15 do
begin
writeln(i*i*i);
i:=i+1;
end;
end.