Сейчас. Напишу Жди через 10 минут
3. 1-а 2-б 3-г 4-в
4. а
5. 1)3)5)
n:=5;
x:=0;
for i:=1 to n do
x:=i;
После выполнения цикла значение x будет равно 5
Label1.Caption:=IntToStr(x);
На экран будет выведено 5