program bai1;
uses crt;
var a: real;
begin
clrscr;
write('nhap so a= '); readln(a);
writeln('so a la : ',a:6:2);
readln;
end.
uses crt;
var a:real;
Begin
clrscr;
write('Nhap vao so a: '); (bỏ bc này lun cũng đc)
readln(a);
write('So a la:',a:3:1)
readln
End.
***ể, mà pascal cũng thi hk nữa hả?