a) Thuật toán:

B1: Nhập x.

B2: Xuất ra theo dạng kết quả của biểu thức (x/17500)*19000-x.

B3: Kết thúc.

b) Chương trình:

uses crt;
var x:longint;
begin 
clrscr;
   write('Nhap x: ');readln(x);
   writeln('So tien can phai chi them: ',(x/17500)*19000-x:0:2,' dong');
readln
end.

b.

program ct;
uses crt;
var x:Qword;
    a:real;
begin
    clrscr;
    writeln('Nhap so tien 1 thang bo Phan phai chi den mua xang la (VNĐ): '); readln(x);
    a:=x/175000;
    writeln('So tien bo Phan phai chi them khi gia xang tang la ',a*190000-x:5:0,'đ');
    readln;
end.

a.

(Hình nhé!!!)

___________________

10 điểm!!!