4. Паскаль,Пожалуйста посчитайте пожалуйста)))Составьте программу, выводящую на экран квадраты чисел от n до m (n, m вводятся пользователем с клавиатуры).

program kvadratu;
var k,m,n,i:integer;
begin 
Writeln('Введите n');
Writeln('Введите m'); 
Readln(n,m);
K:=(m-n);
Writeln(n*n);
 for i:=1 to K do 
  begin   
   Writeln((n+1)*(n+1)); 
   n:=n+1; 
  end;
end.