input số a

output a là số âm hay số dương

b1 nhập a

b2 nếu a>0 thì kết luận a là số dương

b3 nếu a<0 thì kết luận a là số âm

b4 kết thúc

uses crt;
var a:integer;
begin
clrscr;
write('a');readln(a);
if a>0 then writeln(a,'duong');
if a<0 then writeln(a,'am');
readln
end.

xác định bài toán:

input: a;

output: a là số âm hay là số dương;

viết thuật toán:

B1: nhập a;

B2: nếu( a>0 )thì xuất( a la so duong ) 

B3: ngược lại thì xuất ( a la so le );

B4: kết thúc;

viết chương trình:

program bai_giai;

uses crt;

var a:longint;

begin

clrscr;

write('nhap a:');readln(a);

if(a>0)then write('a la so duong')else write('a la so am');

readln;

end.