Câu 1

program tinh;

var x,y,tong:integer;

begin

   Write('Nhap hai so nguyen'); readln(x,y);

   Tong:=x+y;

   Writeln('x+y=',tong); 

   Readln

End. 

Câu 2:

Program hcn; 

Var cd,cr,p,s:real;

Begin

   Writeln('Nhap chieu dai va chieu rong'); 

   Readln(cd,cr);

   P:=(cd+cr)*2; s:=cd*cr;

   Writeln('chu vi la:',p:2:2,'  dien tich la:',s:2:2);

   Readln

End. 

Câu 1:

Program NhatNgu;
Uses crt;
Var a,b,s: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        Write('Nhap b: '); Readln(b);
        s:=a+b;
        Write('S = ',s);
        Readln
End.

Câu 2:

Program NhatNgu;
Uses crt;
Var a,b,cv,dt: real;
Begin
        Clrscr;
        Write('Nhap chieu dai: '); Readln(a);
        Write('Nhap chieu rong: '); Readln(b);
        cv:=(a+b)*2;
        dt:=a*b;
        Writeln('Chu vi = ',cv:0:2);
        Write('Dien tich = ',dt:0:2);
        Readln
End.