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

#include <iostream>using namespace std;int SqrPos(int n);int main() { cout << "n="; int n; cin >> n; cout << "n^2=" << SqrPos(n) << ''; return 0;}int SqrPos(int n) { return (n > 0 ? n * n : 0);}

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