закодируйте фразу из предыдущего упражнения, поменяв местами коды символов. СЛОВО- РОДНОЙ БАЛ

Для подключения к Интернету вам потребуются поставщик услуг Интернета и соответствующее оборудование.Поставщик услуг Интернета: компания, которая предоставляет вам доступ к Интернету. Процедура регистрации в компании поставщика услуг Интернета практически ничем не отличается от регистрации нового абонента в телефонной компании или прочих службах. Чаще всего поставщиками услуг Интернета являются телефонные компании (для DSL- или оптоволоконных подключений) или поставщики услуг телевидения (для кабельных и спутниковых подключений).Оборудование: для высокоскоростного подключения (DSL, по оптоволоконной линии или кабелю) вам понадобится высокоскоростной модем. Иногда он предоставляется поставщиком услуг Интернета при регистрации абонента высокоскоростного подключения, либо вы можете арендовать или приобрести модем отдельно. Если вы собираетесь организовать общий доступ к Интернету с нескольких компьютеров при домашней сети, вам также потребуется маршрутизатор. (Иногда модем и маршрутизатор объединяются в одно устройство.)

Program MaxD;
// Вводятся площади квадратов, окончание ввода по значению 0
// Найти диагональ максимального размера.
// Поскольку диагональ равна квадратному корню из удвоенной площади,
// надо найти максимальную площадь, а затем вычислить диагональ.
var
  S,SMax:real;
begin
  SMax:=0;
  writeln('Вводите площади квадратов, 0 - конец ввода');
  repeat
    readln(S);
    if s>sMax then sMax:=s
  until s=0;
  writeln('Максимальная длина диагонали равна ',sqrt(2*sMax))
end.

Тестовое решение:

Вводите площади квадратов, 0 - конец ввода
5
10
12
13.6
11
18
0
Максимальная длина диагонали равна 6