Надо написать программу в "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.

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.