СРОЧНОО!! ПО ИНФОРМАТИКЕ ПОЖАЛУЙСТА!вывести на экран квадраты и кубы целых чисел от 1 до 8Программа ПаСКАЛЬс циклами ,,Пока" "До"

var i, k: byte;
begin
i := 1;
k := 1;
While i < 9 do begin
  write (i * i,'  ');
  i := i + 1
end;
writeln;
Repeat
  write (k * k * k, '  ');
  k := k + 1;
Until k = 9
end.