VD: if (a>b) and (a>c) then write(a, ' la so lon nhat trong 3 so') else write(a, ' khong phai so lon nhat trong 3 so');
VCT:
program ctpt;
uses crt;
var, a, b, c: integer;
begin
clrscr;
write('Nhap a = '); readln(a);
write('Nhap b = '); readln(b);
write('Nhap c = '); readln(c);
if (a>b) and (a>c) then write(a, ' la so lon nhat trong 3 so') else write(a, ' khong phai so lon nhat trong 3 so');
readln
end.