GİRDİĞİNİZ SAYININ POZİTİF Mİ NEGATİFMİ OLDUĞUNU BULAN PROGRAM


 uses crt;
 var
 a:integer;
 begin
 write('bir say  giriniz');
 readln(a);
 if a>0 then
 write('bu  say pozitiftir')
 else
 write('bu  say negatiftir');
 readln;
 end.