Question

Viết crt nhạp vào số nguyên a và cho biết a là số nguyên âm hay dương

Answer 1

uses crt;

var a:integer;

begin

clrscr;

readln(a);

if a>0 then write('duong')

else write('am');

readln;

end.