PROGRAM BAILAM1;USES CRT;CONST FINP='CHUNHAT.INP'; FOUT='CHUNHAT...
BÀI 1.
program bailam1;
uses crt;
const finp='chunhat.inp';
fout='chunhat.out';
var i,j,a,b,s,luu,luu1:longint;
max,min,dt:real;
f,g:text;
procedure nhap;
begin
{$i-}
assign(f,finp); reset(f);
close(f);
if (IOresult<>0) then
begin
write('File bi hu hoac khong ton tai');
readln;
halt;
end;
readln(f,a,b);
if (IOresult<>0) or (a<1) or (b<1) or (a<b) or (a>100) or (b>100) then
write('Nhap sai');
readln; halt;
{$i+}
end;
clrscr;
nhap;
s:=a*b;
max:=s/2; min:=max;
for i:=0 to b do
dt:=s-(a*i)/2-((b-i)*i)/2-((a-i)*b)/2;
if dt<min then
begin
luu:=i; min:=dt;
end;
if dt>max then
max:=dt; luu1:=i;
assign(g,fout); rewrite(g);
writeln(g,max:0:1);
writeln(g,luu1);
writeln(g,min:0:1);
writeln(g,luu);
close(g);
writeln(max:0:1);
writeln(luu1);
writeln(min:0:1);
writeln(luu);
writeln(' Ngoai ra ket qua con duoc xuat vao file CHUNHAT.out');
delay(300);
end.