Вывести на экран числа от 5 до 20 Uses crt; Var

Вывести на экран числа от 5 до 20
Uses crt; Var N: integer; Begin For N:=5 to 20 do Writeln (N); End.
Вывести на экран числа от 30 до 10
Uses crt; Var N: integer; Begin For N:=30 downto 10 do Writeln (N); End.

1. Составьте программку без использования команды downto, чтоб на экран выводились числа от 25 до 0 В строке For N:=0 to 25 do Writeln (_______); указать подходящую формулу

2. Составьте программу, которая выводит на экран таблицу умножения. Для вас нужно записать в команду Writeln содержимое, которое будет выводить на экран данную таблицу умножения: for N:=2 to 9 do writeln ( );