Câu 1:

program C1;
uses crt;
var x,y,z:integer;
Begin
    clrscr;
    write('Nhap x: '); readln(x);
    write('Nhap y: '); readln(y);
    z:=x-y;
    write('z = ',z);
    readln
End.

Câu 2:

program C2;
uses crt;
var a,cv,S:real;
Begin
    clrscr;
    write('a = ');readln(a);
    cv:=a*4;
    S:=a*a;
    writeln('Chu vi hinh vuong: ',cv:2:2);
    write('Dien tich hinh vuong: ',S:2:2);
    readln
End.

Câu 3:

program C3;
uses crt;
var a,b,c,d,e,TBC:real;
Begin
    clrscr;
    write('a = ');readln(a);
    write('b = ');readln(b);
    write('c = ');readln(c);
    write('d = ');readln(d);
    write('e = ');readln(e);
    TBC:=(a+b+c+d+e)/5;
    write('Trung binh cong 5 so: ',TBC:2:2);
    readln
End.

1.

program ct;
uses crt;
var x,y: integer;
begin
    clrscr;
    writeln('Nhap x va y: '); readln(x,y);
    writeln(x,' - ',y,' = ',x-y);
    readln;
end.

2.

program ct1;
uses crt;
var a: real;
begin
    clrscr;
    writeln('Nhap a: '); readln(a);
    writeln('Chu vi HV la: ',a*4:5:0);
    writeln('Dien tich HV la: ',a*a:5:0);
    readln;
end.

3.

program ct2;
uses crt;
var a,b,c,d,e: real;
begin
    clrscr;
    writeln('Nhap a,b,c,d,e: '); readln(a,b,c,d,e);
    writeln; writeln('Trung binh cong cua 5 so tren la: ',(a+b+c+d+e)/5:5:2);
    readln;
end.

________________________________________________________

#Duahauvn

#HocTot

#ThiTot