дано число n от 1 до 1000 и число m вывести

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 17

196

Var n,m,s: integer;
begin
write('Введите N: ');
readln(n);
if ((ngt;=1) and (nlt;=1000)) then
begin
write('Введите M: ');
readln(m);
if (mlt;gt;0) then
begin
s:=sqr(n div m);
writeln(s);
end else writeln('Введите иное M');
end else writeln('Введите иное N');
readln;
end.