$#QLinkVNxWCDI$
Ta có cấu trúc chương trình như sau:
program qlinkvn
uses crt;
var a,b,c,max:integer;
begin
clrscr;
write('Nhap gia tri cua a: '); readln(a);
write('Nhap gia tri cua b: '); readln(b);
write('Nhap gia tri cua c: '); readln(c);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
writeln('Trong 3 so duoc nhap vao, so lon nhat la ',max);
readln;
end.

program sksk;
uses crt;
var a, b, c, max : integer;
begin
clrscr;
write('nhap so a : '); readln(a);
write('nhap so b : '); readln(b);
write('nhap so c  '); readln(c);
max := a;
if b > max  then max := b;
if c > max then max := c;
writeln('gia tri lon nhat la :', max);
readln
end.