Надо написать программу в "pascal"! : напишите программу которая будет выводить на экран квадраты и кубы целых чисел

Vari,n:integer;begin read(n); writeln('Квадраты чисел'); for i:=1 to n do   write(i*i,' '); writeln; writeln('Кубы чисел'); for i:=1 to n do   write(i*i*i,' ');end.