Заполни пропуски в программе для решения следующей задачи... Вывод на экран квадратов чисел от 1 до 40.

1. Объявить переменную `m` типа `integer`.

2. В цикле `for` установить верхнюю границу в 40.

3. Внутри цикла вывести квадрат переменной `m`.

var
m: integer;
begin
for m:=1 to 40 do
  writeln(sqr(m));
readln;
end.