Выведится:
Привет,это я,умный компьютер
Я знаю,что 6*5=30
Макс. значение 1 столбца =63. 2 столбца 83. 3- 99. 4- 62. 5-73. Индекс макс.- 8. Сумма главной диагонали 246.
10+10+20=40 =>64=2^6.
Несёт 6 бит информации.
Var x,y: Integer;
begin
writeln('Введите x');
readln(x);
if x<0 then y:=x+x else
if x>=0 then y:=100*x;
writeln(y);
end.