Http://ideone.com/Fr4RGn вот тут весь код ........................................................................
while n <= m do n := 1;
while n > m do n := 0;
write(n);
Если n <= m, то n = 1,
если n > m, то n = 0 (любое число)
При этом условные операторы использованы не будут.
Есть вариант попроще: write(ord(n <= m))
Если n <= m, то будет выведено 1 (порядковый номер true), иначе будет выведено 0 (порядковый номер false)
Program First;
var
a, b, c, d, m, n: integer;
begin
a:= 5;
b:= 9;
c:=7;
d:=13;
m:= a*d;
n:=b*c;
writeln(m, n);
end.
Для того что бы одним набором символов можно было писать на любом языке.
В старых кодировках ASCII И ANSI буквы отличные от латинских кодировались по разным правилам, замещая символы псевдографики, из-за малого размера таблицы (всего 256 знаков). Причем, эти кодировки несовместимы.
Юникод же позволяет закодировать до 2 147 483 648 символов.