Каждый символ это двузначное шестнадцетиричное число от 0x00 до 0xFF. Половина этого диапазона совместима с кодировкой ASCII, другая половина - с Windows-1251
Если коды до 0x80, то вбиваешь в поиск по картинкам "Таблица ASCII" и декодируешь по ней, если больше 0x80, то вбиваешь в поиск "Таблица Windows 1251" и пользуешься ей.
Var b:array[1..15] of real;
i:integer;
begin
for i:=1 to 15 do read(b[i]);
writeln;
for i:=1 to 15 do begin b[i]:=-1*b[i]; write (b[i],' '); end;
end.
Во вложении
-------------------
утюг-гладить белье
мялка - мять белье.
морозилка - замораживать подукты
печка - разогревать продукты