B1:                   

a, ((a+c)*(a+c)*....<cho đến khi bằng h>)/2            

b,(2*a*a+2*c*c-a)/4                   

B2:               

program tinh_hieu;   

uses crt;

var a,b:integer;                  

S:real;        

begin         

write('Nhap so nguyen duong a:');readln(a);                

write('Nhap so nguyen duong b:');readln(b);           

S:=a-b;                       

writeln('Hieu 2 so nguyen duong a va b la:',S);                            

readln;              

end.            

Câu 18 :

a) (( a + c )*h)/2

b) (2*a*a + 2*c*c - a)/4

Câu 19:

1)        Program tinh_hieu;

2)        Uses crt;

3)        Var a, b, S : integer;

4)        Begin

5)        Writeln('nhap so nguyen duong a :');Readln(a);

6)        Writeln('nhap so nguyen duong b :');Readln(b);

7)        S : = a - b;

8)        Writeln('Hieu hai so nuyen duong a và b la :', s);

9)        Readln

10)      End.

Dòng 1 tên chương trình sai, tên không chứa khoảng trống

Dòng 2 thiếu dấu chấm phẩy sau crt

Dòng 3 vì a và b là kiểu số nguyên khi thực hiện toán trừ số nguyên trừ số nguyên vẫn là số nguyên, S khai báo là integer

Dòng 5 và dòng 6 đều thiếu dấu chấm phẩy trước readln

Dòng 7 thiếu chấm phẩy sau câu lệnh gán 

Dòng 8 vì s là số nguyên dương, không cần làm tròn số thập phân

Dòng 9, 10 thiếu lệnh readln và end.