Определить результат выполнения программы (без компьютера) Помогите срочно! Program P1; Begin s:=0 ; x:=10; repeat s:=s + x; x:=x+10; until x больше 12; writeln('s=',s); writeln('x=',x); End.

Результатом работы программы будет вывод строк "s=10" и "x=20" Объяснение: В теле цикла repeat переменная s получает приращение в x и становится равной 10, переменная х получает приращение в 10 и становится равной 20. Затем, проверяется постусловие (x>12) и т.к. его зачение true, программа завершает цикл и выводит результат на экран.