В Паскале сделайте мне, пожалуйста, таблицу кубов (числа 2,4,6). Жду, очень надо.

vara,x,y: integer; beginwrite ('введи число '); readln (y); x: =1; a: =x*x*x; writeln (' куб введеного числа=' , a); end. Это если я правильно тебя поняла. Если неправильно то скачай учебник «Решение 50 типовых задач по программированию на языке Pascal. Душистов Д. В." и там задача номер 30, тоже почти с такой же формулировкой задания.