Dùng NNTL Pascal thực hiện viết chương trình giải bài toán tìm số lớn nhất trong 3 số tự nhiên A, B, C.

Program baitap;

Uses crt;

Var a,b,c,max:integer;

Begin

Clrscr;

Write('Nhap lan luot a,b va c');

Readln(a,b,c);

max:=a;

If b>max then max:=b;

If c>max then max:=c;

Writeln('So lon nhat:',max);

Readln

End.

program cauhoi3038981;
uses crt;
var a, b, c, max: integer;
begin
  write('Hay nhap lan luot 3 so a, b, c: ');
  readln(a, b, c);
  max := a;
  if (max < b) then max := b;
  if (max < c) then max := c;
  writeln('So lon nhat trong ', a, ' ', b, ' ', c, ' la ', max);

readln
end.