Program tinhgiatri; uses crt; var a,b : integer; y : real; begin clrscr; write('Nhap so a='); readln(a); write('Nhap so b='); readln(b); y:=a/b; Write('Gia tri cua bieu thuc : y=', y); readln end.
program oken; uses crt; var a,b: longint; y: real; begin clrscr; write('Nhap gia tri a: '); readln(a); write('Nhap gia tri b: '); readln(b); y:=a/b; writeln('Gia tri cua bieu thuc y=a/b: ',y:0:3); readln; end.
