Thêm "end." ở cuối nhen 

Xin ctlhn :)))

Viết chương trình a :

uses crt;

var a, b : integer;

begin

clrscr;

write(‘nhap hai so a va b :’);readln(a, b);

writeln(‘tong hai so :’, a + b);

writeln(‘hieu hai so :’, a - b);

writeln(‘hieu hai so :’, a * b);

writeln(‘thuong hai so :’, (a / b):3:1);

readln

end.

Viết chương trình b :

uses crt;

var a, b : integer;

begin

clrscr;

write(‘nhap so a va b :’);readln(a, b);

while a <> b do

if a > b then a := a - b else b := b - a;

writeln(‘Ước chung lớn nhất : ‘, a);

readln

end.

Viết chương trình c :

uses crt;

var a, b, s, i : integer;

begin

clrscr;

s := 0;

write('nhap hai so a va b :');readln(a, b);

if a > b then 

for i := 1 to b do

if (a mod i = 0) and (b mod i = 0) then s := s + i;

if a < b then

for i := 1 to a do

if (a mod i = 0) and (b mod i = 0) then s := s + i;

writeln('tong cac uoc cua a va b la :', s);

readln

end.