Записать алгоритм нахождения гипотенузы прямоугольного треугольника если известны катеты

1. возвести в квадрат длину одного катета 2. возвести в квадрат длину другого катета 3. сложить числа, полученные в предыдущих шагах алгоритма 4. извлечь из полученного числа квадратный корень - это длина гипотенузы.

3  6  9  12  15  18  21  24  27  30  33  36  39  42  45  48  51  54  57  60  63  66  69  72  75  78  81  84  87  90  93  96  99  102  105  108  111  114  117  120  123  126  129  132  135  138  141  144  147  150  153  156  159  162  165  168  171  174  177  180  183  186  189  192  195  198  201  204  207  210  213  216  219  222  225  228  231  234  237  240  243  246  249  252  255  258  261  264  267  270  273  276  279  282  285  288  291  294  297  300

var m:integer;

   t:string;

begin

 readln(m);

 case m of

   1: writeln('Январь');

   2: writeln('Февраль');

   3: writeln('Март');

   4: writeln('Апрель');

   5: writeln('Май');

   6: writeln('Июнь');

   7: begin

     writeln('Где вы желаете провести отпуск?');

     readln(t);

     writeln('Июль вы проведете ',t);

   end;

   8: writeln('Август');

   9: writeln('Сентябрь');

   10: writeln('Октябрь');

   11: writeln('Ноябрь');

   12: writeln('Декабрь');

 else

   writeln('Введено некорректное число');

 end;

end.