Bài 1 :

program sksk;

uses crt;

var a : integer;

begin

clrscr;

write('nhap so nguyen duong :');readln(a);

if a = 0 then writeln(a,' la so 0');

if a > 0 then writeln(a,' la so duong');

if a < 0 then writeln(a,' la so am');

readln

end.

Bài 2 :

program sksk;

uses crt;

var a, b, c, max : integer;

begin

clrscr;

write('nhap so nguyen duong a :');readln(a);

write('nhap so nguyen duong b :');readln(b);

write('nhap so nguyen duong c :');readln(c);

max := a;

if b > max then max := b;

if c > max then max := c;

writeln('gia tri lon nhat trong ba so la :', max);

readln

end.

n = int(input("Một số nguyên bất kì: "))
if n > 0:
  print('n là số dương')
elif n < 0:
  print('n là số âm')
else:
  print('n là số 0')

# Bài 2
a = input("Nhập a: ")
b = input('Nhập b: ')
c = input("Nhập c: ")
print(f"Giá trị lớn nhất: {max(a,b,c)}")