Программа, реализующая данную задачу на языке 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${}^{\prime }Суммаквадратныхкорнейвсехцелыхчиселот1д{о}^{\prime },m{,}^{\prime }равн{а}^{\prime },sum:0:2$;
end.

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