В Паскале.Введите целые числа a,b,с.Найдите сумму квадратов каждого из чисел и поделите на корень наибольшего из трёх чисел

var

   a, b, c : integer;

begin

   write('введите a ');

   readln(a);

   write('введите b ');

   readln(b);

   write('введите c ');

   readln(c);

   writeln((sqr(a)+sqr(b)+sqr(c))/sqrt(max(a, max(b, c))));

end.

протестировано в PascalABC.Net