PROGRAM JENIS BILANGAN

Program Kosntanta_numeric_integer;
Uses Crt;
Const
c1 =197; {byte}
c2 =-2; {shortInt}
c3 =1050; {Integer}
c4 =50678; {word}
c5 =3000000; {LongInt}
Begin
Clrscr;
Writeln('Bilangan byte =',c1:4);
Writeln('Bilangan shortInt =',c2:4);
Writeln('Bilangan Integer =',c3:4);
Writeln('Bilangan word =',c4:5);
Writeln('Bilangan LongInt =',c5:7);
Readln
End.