Определите без компьютера, что будет напечатано при выполнении
следующих фрагментов программ:
1) a:=100; a:=10*a+1; WriteLn (a)
2) a:=100; a:=-a; WriteLn (a)
3) a:=10; b:=25; a:=b-a; b:=a-b; WriteLn (a,' ',b)

может быть крик?

решение должно иметь од 20 до 5000

700 иероглифов было в древнем письме

program gf; var x: integer; beginwrite('положительные двухзначные числа: '); for x: =-99 to 99 doif (x< -9) and (x> -100) thenwrite(x, ' '); writeln; write( ' отрицательные двухзначные числа:   '); for x: =-99 to 99 doif (x> 9) and (x< 100) thenwrite(x, ' '); end.

один, два, три, четыре, пять

12345