Число n вводят с клавиатуры. Напечатать n раз число 5. Числа n и kвводят с клавиатуры.…

Вывести числа от 1 до 20 и от 20 до 40 так же, просто цифры поменяй.vari: integer; beginwriteln ('1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20'); readlnend. Вывести квадраты чисел от 1 до 10var i: integer; begin for i: =1 to 10 do writeln (i: 4,',sqr (i): 4); readlnend. Число n вводят с клавиатуры. Напечатать n раз число 5 (и оставшиеся 2 задачи можно этой же, просто поменяй кое-какие детали, подумай какие) vari,n: integer; beginwriteln ('Введите кол-во повторов числа: '); readln (n); for i: =1 to n dowriteln ('5'); readlnend.