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

var n,m,s: integer;beginwrite('Введите N: ');readln(n);if ((n>=1) and (n<=1000)) thenbeginwrite('Введите M: ');readln(m);if (m<>0) thenbegins:=sqr(n div m);writeln(s);end else writeln('Введите другое M');end else writeln('Введите другое N');readln;end.

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var (n,m):=ReadInteger2('Введите n и m:');

 Println(Sqr(n div m))

end.

Введите n и m: 243 17196