program bai_giai;
uses crt;
var a,b,c,max:longint;;
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 else max:=c;
  writeln(' so lon nhat trong 3 so la ',max);
 readln;
end.

#QLinkVNxWCDI$

Theo như đề bài và phần mô tả thuật toán, 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.