реализовать задачу на компьютере, используя операторы цикла и вложеннные операторы цикла.
задача. даны площади нескольких квадратов. найти длину диагонали самого большого из них.

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 - конец ввода5101213.611180Максимальная длина диагонали равна 6