Câu 1:

program ch3072181n1;
uses crt;
var gt, gtb: real;
begin
  clrscr;
  write('Hay nhap gia tri don hang: '); readln(gt);
  if gt > 100000 then gtb := gt * (90/100);
  writeln('Gia can phai tra: ', gtb:0:2, ' dong.');
  readln;
end.

Câu 2:

program ch3072181n2;
uses crt;
var a, b: real;
begin
  clrscr;
  write('Hay nhap so a: '); readln(a);
  write('Hay nhap so b: '); readln(b);
  if a < b then writeln('a nho hon b.')
  else if a > b then writeln('a lon hon b.');
  readln;
end.

Bài 1 :

program tinh;

uses crt;

var a : real;

begin

clrscr;

write('nhap hoa don mua hang :');readln(a);

if a > 100000 then writeln('hoa don ban pha tra la :', (a - a*0.1):8:0)

else writeln('hoa don ban phai tra la :', a:8:0);

readln

end.

Bài 2 :

Program maxx;
Uses crt;
Var a, b : real;
Begin
Clrscr;
Write(' nhap gia tri a :'); Readln(a);
Write('nhap gia tri b :'); Readln(b);
if a <> b then
begin
if a > b then writeln(a, ' la gia tri lon nhat') 
else writeln(b , ' la gia tri lon nhat');
end 
else writeln('hai gia tri bang nhau ');
Readln
End.