Câu 1 : 

uses crt;

var s1, s2, s3, s4, s5 : string;

begin

clrscr;

write('nhap ho va ten : ');readln(s1);

write('nhap ngay sinh : ');readln(s2);

write('nhap noi sinh : ');readln(s3);

write('nhap dia chi : ');readln(s4);

write('nhap gioi tinh : ');readln(s5);

writeln('ho va ten : ', s1);

writeln('ngay sinh : ', s2);

writeln('noi sinh : ', s3);

writeln('dia chi : ', s4);

writeln('gioi tinh : ', s5);

readln

end.

Bài 2 : 

uses crt;

var a, b, x : longint;

begin

clrscr;

write('nhap so x : ');readln(x);

a := 12 * x * x - 2 * x + 2;

b := 80 * x * x * x - 4 * x * x - 7 * x + 9;

writeln('12x^2 - 2x + 2 = ', a);

writeln('80x^3 - 4x^2 - 7x + 9 = ', b);

readln

end.

Câu 3 :

uses crt;

var dl, db, h, s : real;

begin

clrscr;

write('nhap day lon va day be : ');readln(dl, db);

write('nhap chieu cao hinh thang : ');readln(h);

s := (dl + db) * 0.5 * h;

writeln('dien tich hinh thang : ', s :2:1);

readln

end.

Câu 4 : 

uses crt;

var x, y : integer;

begin

clrscr;

write('nhap hai so x va y : ');readln(x, y);

if x > y then writeln('x lon hon y');

if x < y then writeln('x nho hon y');

if x = y then writeln('x bang y');

readln

end.

Câu 1:

program C1;
uses crt;
var Ht,Gt,noi_sinh,dia_chi:string;
    ngay_sinh:byte;
Begin
    clrscr;
    write('Ho ten: ');readln(Ht);
    write('Ngay sinh: ');readln(ngay_sinh);
    write('Noi sinh: ');readln(noi_sinh);
    write('Dia chi: ');readln(dia_chi);
    write('Gioi tinh: ');readln(Gt);
    readln
End.

Câu 2:

p

Câu 3:

program C3;
uses crt;
var a,b,h,S:real;
Begin
    clrscr;
    write('a = ');readln(a);
    write('b = ');readln(b);
    write('h = ');readln(h);
    S:=h*((a+b)/2);
    write('Dien tich hinh thang = ',s:2:2);
    readln
End.

Câu 4:

program C4;
uses crt;
var x,y:integer;
Begin
    clrscr;
    write('x = ');readln(x);
    write('y = ');readln(y);
    if x=y then write('Hai so bang nhau');
    if x>y then write('x lon hon y');
    if x<y then write('x nho hon y');
    readln
End.