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

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