Giúp mình với mn câu 6

program TranDucQuangNBK;
uses crt;
var n: integer;
begin
  clrscr;
  write ('Nhập số nguyên: '); readln(n);
  if n<0 then writeln (n,' là số âm') else
    begin
      if n=0 then writeln (n,' không là số âm cũng không phải số dương') else writeln (n, ' là số dương');
    end;
end.

`#TranDucQuangNBK`

python:

print('So am' if int(input())<0 else "So duong")

C++:

#include <iostream>
using namespace std;
int main()
{
    int n;
    cin>>n;
    if (n<0) cout<<"so am";
    else cout<<"so duong";
    return 0;
}

pascal:

var n:integer;
begin
    readln(n);
    if n<0 then
        write('so am')
    else
        write('so duong');
    readln;
end.