1) s будет равно 40. for k:= 2 to 7 do - цикл будет выполнен 6 раз (2/3/4/5/6/7). Каждый раз переменная s будет уменьшаться на 10: 100-10=90 (1 цикл) 90-10=80 (2-й) 80-10=70 (3-й) 70-10=60 (4-й) 60-10=50 (5-й) 50-10=40 (6-й цикл, последний) S=40
2) k будет равно 22. For i:= 1 to 4 do - цикл будет выполнен 4 раза (1/2/3/4). Каждый раз переменная k будет присваивать значение 2*i+k: 2*1+2=4 (1-й цикл: 1 - это i, 2 - первоначальное значение k) 2*2+4=8 (2-й цикл: 2 - это очередная i, 4 - предыдущее значение k) 2*3+8=14 (3-й цикл) 2*4+14=22 (4-й цикл, последний) k=22
var x,y:real;
begin
write('Введите x: '); readln(x);
write('Введите y: '); readln(y);
write((abs(y) <= sqrt(abs(4-sqr(x and (abs(y) >= 1) and (abs(x) <= sqrt(3)))
end.