Дано число n от 1 до 1000 и число m вывести результат квадрат целочисленного n на m решить на паскале

Var n, m, s: integer;

begin

write ('Введите N: ') ;

readln (n) ;

if ((n>=1) and (n<=1000)) then

begin

write ('Введите M: ') ;

readln (m) ;

if (m0) then

begin

s:=sqr (n div m) ;

writeln (s) ;

end else writeln ('Введите другое M') ;

end else writeln ('Введите другое N') ;

readln;

end.