: Chuẩn bị liên hoan lớp các bạn nữ mua x cân táo, y cân nho, z cân quýt. Biết giá mỗi cân quýt là 25000 đồng; táo có giá gấp đoi quýt, nho có giá gấp 3.5 lần quýt. Hỏi các bạn nữ phải trả bao nhiêu tiền.

Câu 1:

program lien_hoan;
uses crt;
var x,y,z,T:real;
Begin
    clrscr;
    write('Nhap can tao: ');readln(x);
    write('Nhap can nho: ');readln(y);
    write('Nhap can quyt: ');readln(z);
    z:=25000*z;
    x:=2*25000*x;
    y:=3.5*25000*y;
    T:=x+y+z;
    write('So tien phai tra la: ',T:2:0,' dong');
    readln
End.

Câu 2:

program sinh_nhat;
uses crt;
var ten:string;
    n,t:byte;
Begin
    clrscr;
    write('Ban hay nhap ten cua ban: ');readln(ten);
    write('Hay nhap ngay sinh cua ban: ');readln(n);
    write('Hay nhap thang sinh cua ban: ');readln(t);
    writeln('-------------------------------------');
    write('Chao ban ',ten,'! Hom nay la ngay ',n,' thang ',t,'. Chuc mung sinh nhat ban!');
    readln
End.

CHO HAY NHẤT NGHEN