Program Gotoxy 1

Program_Gotoxy1;

Uses crt;

Var

Kata1, kata2:char;

Kar:string [10];  x:Integer;

r:real;  b:boolean;

Begin

Clrscr;

Kata1:= 'A';

Kata2:= 'B';

Kar:= 'ichsan';

x:=12345;

r:=1234. 56;

b:=false;

Gotoxy (10, 4); writeln ( 'karakter:', kata1:5, kata2:6);

Gotoxy (10, 6); writeln ( 'STMIK:', kar:3);

Gotoxy (10, 7); writeln ( 'jumlah angka:', x);

Gotoxy (10, 8); writeln ( 'bilangan realnya:', r:10:2);

Writeln;

Writeln ( 'hasil booleannya:', b:5);

End.