Membatasi percetakan tempat desimal

Bagaimana membatasi pencetakan tempat desimal untuk data Real type ?:bingung
Untuk menentukan jumlah tempat sebelum desimal dan sesudah desimal anda dapat menggunakan :x:y setelah variabel yang akan dibatasi pencetakan nilainya, dimana x adalah jumlah tempat sebelum desimal dan y adalah jumlah tempat setelah desimal. dari pada tambah bingung, Silahkan coba koding berikut :


Program contoh;
uses wincrt;


var
a : real;
begin
a:= 22/7
writeln ('Bilangan a adalah ', a);
writeln ('Bilangan a adalah', real a:0:2);

end.

Semoga bermanfaat gan, :jabat