Переведите код с QBasic ** Pascal, пж: SUB pq(n AS LONG) IF n THEN m = INT(SQR(n)) PRINT...

Question

Переведите код с 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

Answer 1

// 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;