Câu 1: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

write(a+b);

readln;

end.

Câu 2:

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

writeln(a+b-c);

readln;

end.

Câu 3: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a-b);

readln;

end.

Câu 4: 

uses crt;

var x,y,z:integer;

begin

clrscr;

readln(x,y,z);

writeln((x+y)*z);

readln;

end.

uses crt;

var a,b,c,d:integer;

begin

clrscr;

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

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

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

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

if (b<>0) and (d<>0) then writeln(a/b+c/d:4:2)

else writeln('Vui long nhap lai');

readln;

end.

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

cout<<fixed<<setprecision(2)<<a*b*c;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long a,b,i,dem,s;

int main()

{

cin>>a>>b;

dem=0;

s=0;

for (i=a; i<=b; i++)

if (i%2==0) 

{

dem++;

s=s+i;

}

cout<<dem<<" "<<s;

return 0;

}

a = int(input("Nhập vào số nguyên a: "))

b = int(input("Nhập vào số nguyên b: "))

c = int(input("Nhập vào số nguyên c: "))

max_num = max(a, b, c)

print("Giá trị lớn nhất là:", max_num)

uses crt;

var n,i,t,s:integer;

begin

clrscr;

repeat

readln(n);

until n<>0;

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

writeln(t);

s:=1;

for i:=1 to n do 

  if i mod 2=1 then s:=s*i;

writeln(s);

readln;

end.

Bài 2: 

#include <bits/stdc++.h>;

using namespace std;

int main();

{

long m,n;

cout<<"Nhap m="; cin>>m;

cout<<"Nhap n="; cin>>n;

cout<<m*n-2;

return 0;

}

uses crt;

var a,b,c,max,t:integer;

begin

clrscr;

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

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

write('c='); readln(c);

max:=a;

if max<b then max:=b;

if max<c then max:=c;

t:=a+b+c;

writeln('Tong cua 3 so la: ',t);

writeln('So lon nhat trong 3 so la: ',max);

readln;

end.