Вывод на экран кубов чисел от 13 до 4.

var
:integer;
begin
for m:=
downto
do
writeln (m*m*m);
readln;
end.

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку