Câu 1:

program tinh;

uses crt;

var b : integer;

const a = 5;

begin

clrscr;

write('nhap so thu hai :');readln(b);

writeln('tong hai so la :', a + b);

writeln('hieu hai so la :', a - b); 

writeln(' thuong cua hai so la :', a/b);

writeln('tich cua hai so la :', a *b);

readln

end.

Câu 2 :

program tinh;
uses crt;
var b : integer;
begin
clrscr;
write('nhap dung luong su dung  :');readln(b);

writeln('so tien phai tra cho dich vu la :', (b*75)/50:8:2);

readln

end.

Bài 3:

program tinh;
uses crt;
var m, n : integer;

const a = 8000;

          b = 3000;
begin
clrscr;
write('nhap so luong quyen vo  :');readln(m);

write('nhap so luong but bi :');readln(n);

writeln('so tien phai tra khi mua vo va but la :', m*a + n*b);

readln

end.