ткань,глина,дерево,стекло,бумага,мктал,пласмасса,резина,лед
A=a - это глупость.
if not(a>b) then a:=b; <-так правильнее.
Кол-во символов=65536, объем=24Кбайт
инф.объем одного символа=24*1024*8бит/65536=3 бита
мощность N=2³=8 символов в алфавите
16/32=1/2 КБайт/сек- скорость
1/2*1024=512 Байт/сек
512/8= 64 бит/сек
Var a, x: longint;
begin
readln (a);
x:=-a;
writeln ('x1=0');
writeln ('x2=',x);
end.