1) вывести квадраты чисел от 1 до 10 в столбик2) Ввести на экран 5 раз свое имя (Иван)

Задача 1.

1. Объявляем переменную типа целое число (integer), которая будет затем увеличиваться на единицу в цикле.

2. Создаем цикл от 1 до десяти, который выводит переменную nubber на экран.

var

number: integer;

begin

for number:=1 to 10 do

writeln (number);

end.

Задача 2.

Задача похожа на предыдущую, только здесь тело цикла повторяется пять раз.

А тело цикла - это инструкция writeln (), которая выводит строку на экран.

var

number: integer;

begin

for number:=1 to 5 do

writeln ('Иван');

end.