Где инфа? Где двадцать символов?
256 символов стандартного алфавита стало недостаточно (русский, английский и некоторые спец символы). для ютого ввели unicode, где на каждый символ уже отводится 2 байта, с помошью него уже можно закодировать 65536 символов (и арабский и иероглифы и спецсимволы новые, почти все письменные языки и символы)
Var
x, y, z : real;
begin
read (x, y, z);
if (x > 0) then x := sqr (x);
if (y > 0) then y := sqr (y);
if (z > 0) then z := sqr (z);
write (x, ' ', y, ' ', z);
end.