Записать программу для нахождения квадрата числа,если оно положительно

// PascalABC.NET 3.2, сборка 1356
begin
  var n := ReadInteger(Введите число:);
  if n gt; 0 then n *= n else n := 0;
  Write(Ответ: , n);
end.

#include lt;iostreamgt;
using namespace std;

int SqrPos(int n);

int main() {
cout lt;lt; "n=";
int n; cin gt;gt; n;
cout lt;lt; "n^2=" lt;lt; SqrPos(n) lt;lt; \n;
return 0;
}

int SqrPos(int n) {
return (n gt; 0 n * n : 0);
}