Cho mình hỏi là tại sao CT này ko chạy đc ạ
program cannang;
uses crt;
var a,b,c,d,a1,b1,c1,d1,max,min:real;
begin
clrscr;
writeln('nhap ten 4 ban:');readln(a,b,c,d);
writeln('nhap can nang ban',a);readln(a1);
max:=a1;
min:=a1;
writeln('nhap can nang ban',b);readln(b1);
if b1>max then max:=b1
else if b1<min then min:=b1;
writeln('nhap can nang ban',c);readln(c1);
if c1>max then max:=c1
else if c1<min then min:=c1;
writeln('nhap can nang ban',d);readln(d1);
if d1>max then max:=d1
else if d1<min then min:=d1;
a1:=a;
b1:=b;
c1:=c;
d1:=d;
writeln('nang nhat:',max);
writeln('nhe nhat:',min);
readln;
end.
Loga
Sinh Học lớp 12
