Дано целое число м>0 .Найти сумму квадратных корней всех целых чисел от 1 до м. Задача Паскаль

Предыдущий
вопрос Следующий
вопрос

Программа, реализующая данную задачу на языке Pascal, может выглядеть следующим образом:

program SumOfSquareRoots;
var
m, i: integer;
sum: real;
begin
sum := 0;
write('Введите целое число m > 0: ');
readln(m);
for i := 1 to m do
begin
sum := sum + sqrt(i);
end;
writeln('Сумма квадратных корней всех целых чисел от 1 до ', m, ' равна ', sum:0:2);
end.

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