Написать программу (в паскале) к : вычислить диагональ прямоугольника если известна меньше сторона, а большая сторона в 3 раза больше за меньшую

//PascalABC.NET

begin
    write('Длина меньшей стороны: ');
    var a := ReadlnReal;
    writeln('Длина диагонали равна ', sqrt(a*a+ 9*a*a):8:3)
end.