3)

$\left.\begin{matrix} - Dùng real\\-Dùng real \end{matrix}\right\}$ vì thông thường, chiều dài sẽ có phần thập phân, và diện tích hình tam giác có chia nên dùng real

$\left.\begin{matrix} -Dùng string\\ \end{matrix}\right\}$ vì nhập tên dùng xâu ký tự

-Dùng real vì nhập điểm  

4)

1- readln(x);

readln(y);

2- s:=a*b;

p:=(a+b)/2;

writeln(x);

writeln(y);

sửa lỗi

program Tinh_tong;

uses crt;

var a,b,tong:integer;

begin

clrscr;

write('nhap a: ');readln(a);

write('nhap b: ');readln(b);

tong:=a+b;

write('tong 2 so nguyen a,b la: ',tong);

readln;

end.

C3:

a, var a,h:integer;

b, var chieudai,chieurong,S:integer;

c, var a,b:char;

d, var a,b,c:integer;

C4:

1, readln(x);

    readln(y);

2, S:=a*b;

p:=(a+b)/2;

3, writeln(x);

writeln(y);

4,(đã sửa toàn bộ)

program tinh_tong;

uses crt;

var a,b,tong:integer;

begin

clrscr;

write('nhap a:');readln(a);

write('nhap b:');readln(b);

tong:=a+b;

writeln('Tong 2 so nguyen a,b la:',tong);

readln;

end.