program pho_to;
uses crt;
var n, a, b  : real;
begin
clrscr;
write(' nhap so to giay ban an muon pho to :'); readln( n);
if ((n >= 1) and( n <= 100 )) then 
begin 
a:= n* 250 ;
writeln(' so tien phai tra khi pho to 1 mat la : ', a:8:0 );
end;
if( n > 100 ) then 
begin 
a := n* 220;
writeln(' so tien phai tra khi pho to 1 mat la : ', a:8:0 );
end;
if ((n >= 1) and( n <= 100 )) then 
begin 
b := (n/2)* 300 ;
writeln(' so tien phai tra khi pho to 2  mat la : ', b:8:0 );
end;
if( n > 100 ) then 
begin 
b := (n/2)*280  ;
writeln(' so tien phai tra khi pho to 2  mat la : ', b:8:0);
end;
if a > b then writeln(' pho to ', n:8:0 ,' to giay a4 hai mat se trả so tien it hon la :', b:8:0 )
else  writeln(' pho to ', n:8:0 ,' to giay a4 mot  mat se trả so tien it hon la :', a:8:0  );
readln
end.