Переведите код с qbasic на pascal, : sub pq(n as long) if n then m = int(sqr(n)) print m; call pq(n - m ^ 2) end if end sub

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

procedure pq(n:integer);
begin
  if n<>0 then begin
    var m:=Trunc(Sqrt(n));
    Writeln(m);
    pq(n-m*m)
    end
end;