Question

Задание 4.Составте программу ,выводящую на экран числа от 1 до 10 , по одному числу в строке.

Задание 5.Дополните программу из задания 4 так , чтобы на экран выводились числа от 1 до 10,а также квадраты и кубы этих чисел в следующем виде:
 1   1   1
 2   4   8
 3   9   27
...   ...   ... 
10   100   1000

ПОМОГИТЕ ПОЖАЛУЙСТА,ЗАДАНИЕ 4 ПИСАТЬ НЕ НУЖНО !ПОСТАВЛЮ ЛУЧЩИЙ ОТВЕТ И "СПАСИБО" 

Answer 1

var i :integer;
begin
For i:=1 to 10 do
writeln(i,' ',sqr(i),' ',i*sqr(i));
end.