BÀI 1
uses crt;
var a,b,c,min,max:integer;
begin
clrscr;
write('nhap a=');readln(a);
write('nhap b=');readln(b);
write('nhap c=');readln(c);
max:=a ; min:=a;
if b>a then max:=b
Type: Posts; User: lecongquochuy; Keyword(s):
BÀI 1
uses crt;
var a,b,c,min,max:integer;
begin
clrscr;
write('nhap a=');readln(a);
write('nhap b=');readln(b);
write('nhap c=');readln(c);
max:=a ; min:=a;
if b>a then max:=b
em mới học pascal mấy anh chị đi trước có tài liệu nào không thì cho e xin với ạ