A)

program Tinh_toan;

uses crt;

var x,y: integer;

tb: real;

thongbao: string;

const a = 2;

begin

clrscr;

thongbao:= 'Trung binh cong cua hai so x va y la: ';

write('Nhap gia tri cho x= ');readln(x);

write('Nhap gia tri cho y= ');readln(y);

tb:= (x + y) / a;

writeln(thongbao, tb:2:1);

readln

end.

B)

- Các tên biến là: x, y, tb, thongbao

_ Tên hằng là: a

program chuong_trinh thiếu chấm phẩy

Sửa lại: program chuong_trinh;

Tên chương trình: có dấu cách, sửa: tinh_tong;

Khai báo biến sai cấu trúc, sửa : thay := thành :

Lệnh gán biến tong sai, sửa : tong:=a+b;

End thiếu chấm, sửa : end.

- program: có dấu cách

sửa: program tinh_tong;

- var: a, b, tong là các số khai báo kiểu nên không được dùng dấu gán

sửa: var a, b, tong : integer;

- phần begin: sai phần "tong = a+b", tổng phải được gán giá trị

sửa: tong := a+b;

- kết thúc chương trình: end viết thiếu

sửa: end.

Bạn làm thiếu begin và end nhé. Vì ở dòng 12 bạn dùng else nhưng trước nó không có câu lệnh điều kiện.

program CTT5;
uses crt;
var a,b : integer;
begin
writeln('Nhap so hang dau tien : ');readln(a);
writeln('Nhap so hang thu hai : ');readln(b);
if b=0 then

Begin

writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Khong the chia cho 0');

end
else

begin
writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Ket qua phep chia la : ',a div b);

end;
readln;
end.

Cho em hỏi writeln('ket qua phep cong la: ',a+b); có ý nghĩa gì vậy ạ 

a)

*Các lỗi sai là:

-Sai thứ tự các lệnh (begin trước, uses crt sau)

-Program vd: thiếu dấu ;

-Writeln('Chao cac ban!'): thiếu dấu ;

-Sai thứ tự các lệnh(end trước readln sau)

-Readln: thiếu ;

*Sửa lại:

Program vd;
Uses crt;
Begin
Clrscr;
Writeln('Chao cac ban!');
Readln;
End.

b)

*Các lỗi sai là:

-Var a,b:=integer; Sai vì có dấu =

-Const c:=3; Sai vì có dấu :

-a:=200: Sai vì thiếu dấu ;

-b:=a/c: Biến b Sai kiểu dữ liệu;

-Writeln(b): Sai vì thiếu dấu ;

-Readln: Sai vì thiếu dấu ;

*Sửa lại:

Var a,b:integer;
Const c=3;
Begin
a:=200;
b:=a+c;
Writeln(b);
Readln;
End.

nhap a,b gop lam 1 dc nhe

program Tich;

uses crt;

var a:b,Tich; integer;

begin

clrscr;

Write('nhap a va b='); readln(a,b);

Tich:a*b;

Writeln('tich cua a va b la:', Tich:1:0);

Readln;

end.

program Tich;

uses crt;

var a,b,Tich : integer;

begin

clrscr;

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

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

Tich := a*b;

Writeln('Tich cua a va b la: ',Tich:8:20);

Readln;

end.