Câu 1:

Program NN;
Uses crt;
Var a,b,s,p: real;
Begin
        Clrscr;
        Write('Nhap chieu dai va chieu rong: '); Readln(a,b);
        s:=a*b;
        p:=(a+b)*2;
        Writeln('S = ',s:0:2);
        Write('P = ',p:0:2);
        Readln
End.

Câu 2:

Program NN;
Uses crt;
Var a,b: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        Write('Nhap b: '); Readln(b);
        Write(b,' ',a);
        Readln
End.

1. 

program ctpt;

uses crt;

  var a, b, C, S: real

begin

            clrscr;

            write('Nhap a = '); readln(a);

            write('Nhap b = '); readln(b);

            C:=(a+b)*2;

            S:=a*b;

            writeln('Dien tich hinh chu nhat la: ', S:2:1);

            writeln('Chu vi hinh chu nhat la: ', C:2:1);

            readln

end.

2.

program ctpt;

uses crt;

  var a, b, t: real;

begin

            clrscr;

            write('Nhap a = '); readln(a);

            write('Nhap b = '); readln(b);

            t:=a;

            a:=b;

            b:=t;

            writeln('Gia tri cua a va b sau khi hoan doi la:');

            writeln('a = ', a);

            writeln('b = ', b);

            readln

end.