Определить результат выполнения программы (без компьютера) ! 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, программа завершает цикл и выводит результат на экран.