1. Число n вводят с клавиатуры. Напечатать n раз число 5.
2. Числа n и k вводят с клавиатуры. Напечатать n раз число k.
3. Числа n и k вводят с клавиатуры. Напечатать n раз число k, а затем k раз число n.
4. Вывести числа от 1 до 20 в строку через пробел.
5. Вывести числа от 11 до 40 в строку через пробел.
6. Вывести квадраты чисел от 1 до 10 в столбик.
Решите задачи на языке Паскаль.

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

var n, i: integer;
begin
readln(n);
for i := 1 to n do
write(5, ' ');
end.

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

var n, k, i: integer;
begin
readln(n, k);
for i := 1 to n do
write(k, ' ');
end.

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

var n, k, i: integer;
begin
readln(n, k);
for i := 1 to n do
write(k, ' ');
for i := 1 to k do
write(n, ' ');
end.

4. Вывести числа от 1 до 20 в строку через пробел.

var i: integer;
begin
for i := 1 to 20 do
write(i, ' ');
end.

5. Вывести числа от 11 до 40 в строку через пробел.

var i: integer;
begin
for i := 11 to 40 do
write(i, ' ');
end.

6. Вывести квадраты чисел от 1 до 10 в столбик.

var i: integer;
begin
for i := 1 to 10 do
writeln(i * i);
end.