Câu 1.viết chương trình tính tổng 2 số tự nhiên bất kỳ được nhập từ bàn phím Câu 2.Viết chương trình tính diện tích và chu vi của hình chữ nhật với độ dài các cạnh được nhập từ bàn phím

Câu 1:

Program cau1;

Uses crt;

Var x,y:integer;

Begin

Clrscr;

Write('Nhap lan luot 2 so do:');

Readln(x,y);

Writeln('Tong cua 2 so do:',x+y);

Readln

End.

Câu 2:

Program baitap;

Uses crt;

Var dai,rong:real;

Begin

Clrscr;

Write('Nhap chieu dai va chieu rong:');

Readln(dai,rong);

Writeln('Chu vi:',2*(dai+rong));

Writeln('Dien tich:',dai*rong);

Readln

End.

Câu 1:

uses crt;
var a,b: integer;
begin
    clrscr;
    write('Nhap so thu nhat: ');
    readln(a);
    write('Nhap so thu hai: ');
    readln(b);
    write('Tong hai so: ', a+b);
    readln
end.

Câu 2: 

uses crt;
var cdai, crong: integer;
begin
    clrscr;
    write('Nhap chieu dai: ');
    readln(cdai);
    write('Nhap chieu rong: ');
    readln(crong);
    writeln('Chu vi la: ',(cdai+crong)*2);
    write('Dien tich la: ',cdai*crong);
    readln
end.